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I. INTRODUCTION 


A. INTRODUCTION 

This thesis proposes an inventory control database management svstem for use at 
the ROK Army division. 

Supply functions are critical in achievement of economic operations of armed 
forces, and the management of defense resouces. Republic of Korea (ROK) Army 
logisticians have developed better ways to build support process. One improvement 1s 
the recent computerization of Planning-Programming-Budgeting-Executing-Evaluating- 
System (PPBEES)! at high level command (above division). 

However, implementation of PPBEES below the division level requires a great 
deal of manual paperwork, and much overtime for lower level managers. 

Fortunately, as of last vear, the Army divisions have acquired computer 
hardware. Stull, some usage difficulties remaine because of shortages of the computer- 
related personnel. Thus the development of well structured, user friendly computer 
systems is urgently needed. 

This thesis will introduce a logistics database system which will reduce the 
amount of paperwork, decrease order processing response time and generate statistics 
which are now too cumbersome to compute. The system must be well structured and 
user friendly for easy implementation by novice users. 

Therefore this thesis will deal with the application of computer based routine 
transactions, generation of reports, and analysis of transactions for the ROK Army 
division logistics management section. 

The software developed for this thesis is microcomputer based because of price 
and availability to the Korea Army, especially at the division level and below. The 
software performs the supply distribution function, which is the most costly and labor 
consuming phase at the operational level. 

It handles authorized storage list (ASL) as well as property items, to be defined 
at chapter II. The fixed order quantity with probabilistic demand model will be 


applied for inventory control. 


'PPBEES is a newly developed system for the national resource management in 
Korea. The objective is to accomplish the economic management of the Armv by 
evaluation of managers with budget expended and the designated material readiness 
condition. 
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B. THESIS ORGANIZATION 

The thesis is divided into the following sections: As the background of the thesis, 
the second chapter covers the current ROK Army logistics structure, supply functions, 
and current computers in the Korean Army. 

The third chapter describes the structure and the capability of the proposed 
system and its benefits. 

Future research needs will be stated in the concluding chapter. Appendices 
include statistical considerations for inventory control measures in Appendix A, data 
structure of the proposed system in Appendix B, the proposed system structure in 
Appendix C. The user's manual is provided in Appendix D, and program listings and 


menu screen formats are in Appendix E and F. 
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Il. ARMY LOGISTICS STRUCTURE AND ADPS IN THE KOREA ARMY 


A. ARMY LOGISTICS STRUCTURE 
1. Overview 

The Korea Army is the largest of the three armed forces and is responsible for 
providing general-purpose forces to meet anv threat to the Korean national security. In 
order for the Army to carry out its mission, it has to insure an uninterrupted supply of 
weapons, equipment, supplies and other items to the combat forces. 

The Army logistic unit was established to enhance national security by 
providing a reliable and supportable supply of equipment and other necessary items to 
the various army units. 

To achieve its objective, the logistic unit has adopted the following principals; 


e Logistics intelligence, Commander must have accurate and timely logistics 
information in order to provide effective logistics support. 


e §6Objective; Logistics endeavors must be directed toward a clear and attainable 
objective. 


¢ Generative logistics; The professional application of initiative, knowledge, and 
Ingenuity, and innovative exploration of technical and scientific advances are 
fundamental to the generation of logistics svstems improvements. 


e = §6©Interdependence; Logistics system efficiency requires integration with other 
functions of the svstem. 


¢ = =6Simplicity; Simplicity 1s essential at all levels of the logistics svstem. 


e §=6Timeliness; Logistics support must be provided in the right quantity at the 
proper time and place for accomplishment of the mission. 


e Impetus; The impetus of logistics support 1s forward to support the combat 
mission. 


°© §6Cost-effectiveness; Efficient management of resources is essential. 


¢ Security; Security must be maintained to preserve resources and ensure 
sustained combat capability (Ref. 1: p. 34] 


2. The Army Logistics Unit Organization 
The Army logistics unit 1s organized into three levels, each responsible for 
certain functions. The next two sections will outline the organizational structure and 


the functions of the logistics units. 


1S 


a. Organizational Structure 
The organizational structure is divided into three levels. The top level 1s 
the wholesale echelon which includes depots, maintenance points, plants and factories 
associated with special army activities controlled by the Army headquarters. The 
intermediate echelon, i.e. retail sale echelon, is the next level and serves as an interface 
between the top level and the direct support and use echelon. It is responsible for 
providing general support function. The third and final level is the direct support and 
user echelon which includes field units and provides direct support functions to the 
Various units in the field. 
b. Support Functions 
Logistics Units perform the following functions 


e = =6Supply; which includes procurement, distribution, maintenance while in storage, 
and salvage of all commodities necessary to equip, maintain and operate the 
armed forces. 


e = =©NMaintenance; Which focuses on repair and restoration of fielded weapons and 
equipment systems. Maintenance 1s classified into three level, 1.e. unit, field and 
depot. 


e = §=©Transportation of troops and supplies. 


e §«Services; including food stores, clothes stores, laundry, grave services, fire 
fighting, etc. 


e =. Facilities; including real properties such as depot, maintenance factories, and 
barracks, etc. 


3. Management Issues 
Four managerial issues were identified by the Korean Army Logistics 
Command as critical to the performance and execution of the logistics tasks. These 
elements are; 
e Highly reliable communications between the logistics units. 
e Retention of sufficient defense resources. 
e High speed movement of combat support supplies. 


e Utilization of automatic data processing systems in order to effectively manage 
the process. [Ref 2 p09) 


This thesis is an effort to support the four elements, i.e. the use of (dare 
processing in developing a system to improve the retention of sufficient defense 
resources; to reduce communication complexity and paperwork; to decrease the 
response time for requests; and to allow management more time for important 


decisions. 
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The next sections outline a specific management problem follwed by, in later 
chapters, a proposed implementation of a computerized information system, within the 


constraints of the Korean data processing environment system. 


B. SELECTIVE MANAGEMENT 
l. Overview 
\faterial management involves thousands of individual transactions each vear. 
To do their job effectively, material managers must be able to effectively use their time, 
concentrate on critical items and avoid the distraction of less critical details. 
In reality, it is difficult to achieve this without the following prerequisites; 
e <A classification system to identify critical items. 


e Well established and structured procedures to deal with those items that are 
considered less critical. 


¢ A computer system which assists managers in carrying out the less critical 
activities and which can identify changes that may effect an activity 
classification. 


The Logistics unit has adopted a classification svstem which satisfies the first 
prerequisite above, 1.e. inventory control procedures that isolate those items requiring 
precise control from those items that do not. 

2. The ABC Classification systein 

This svstem is based on the fact that only a small percentage of inventory 
items account for most of the total inventory value. Thus considering the cost of 
management time, it is more cost effective to purchase a sufficient supply of low cost, 
low demand items and maintain little control over them. 

Before discussing the classification svstem, it must be stated that before an 
Item 1s given low priority classification, it is evaluated by the Armv to determine how 
critical it is for combat. If it was classified as combat critical, it must be treated like 
high priority item even if its demand classification is still low one. Thus a low priority 
item has to satisfy two criteria; an item shortage will not disrupt the combat operations 
and its annual demand in terms of must be low. 

The selective management, more commonly known as the ABC system, was 
adopted by the Korean Army to meet these supply function considerations in material 
handling. Each item is given one of three classifications, 1.e. A, B or C (see Figure 2.1). 
Class A consists of items whose dollar value of total annual demand typically accounts 


for 50% of the total dollar value of the inventory, while representing only 7% of the 
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number of inventory items. The B class consists of 18% with 35% of inventory items. 
The C class consists of items whose annual dollar value accounts for only 15% of the 


total dollar value of the inventory but represents 65% of the inventory items. 


Annual demand category $ Degree of management 










Most intense 
50 % 


High 
over 5,000 


Very high 















Intense 










Less intense 
35% 


Medium 
1,000-- 5,000 





Number of items 


Figure 2.1 ABC Classification. 


The entire inventory is listed in descending order from the largest value of the 
annual demand to the smallest and break points are between class A and B and 
between class B and C. 

The ABC classification exists to direct attention to those inventory items that 
represent the largest annual expenditures. If inventory levels can be reduced for class 
A items, a significant reduction in inventory investment will result. 

“The purpose of ee irems into groups is to establish appropriate levels of control 
over eacn item, ABC analysis is useful for any type of independent demand system 
(continuous review, periodic review, and so forth). With the periodic system, the ABC 


analysis can be subdivided so high usage items receive a short review and low usage items 
receive a much longer review. 


[Ref. 3: p.439} 
As previously mentioned the degree of control is classification dependent, thus 
class A items require and are given the greatest attention while the class C items are 


paid the least attention. Class A items are managed using an economic order quantity 


18 


model, A review of the inventory position would occur each time an item is issued to a 
customer. Class B items could use an economic order quantity (EOQ) based 
requisitioning objective. Class C items require no special calculations, since thev 
represent a low inventory investment. The order quantity nught be a one vear supply 
with a annual review of the inventory position. 

The success of the ABC svstem is dependent on several factors, among them is 
the validity of the assumption that class A items constitute a small percentage, 7°o, of 
the total items and around 50%% of the total cost. Figure 2.1 depicts the distribution of 
the cost and quantity for the inventory in the Korean army. 

The system proposed in this thesis applies continuous review on class A and 
some of class B items, which are included in the authorized storage list (ASL). ASL 


will be discussed in section three inventory control means. 


C. THE EXISTING SYSTEM 
1. The Planning-Programming-Executing- Evaluating System (PPBEES) 

The Planning-Programing-Budgeting-Execution-Evaluation System (PPBEES) 
is a newly developed svstem for the national resource management in Korea. It 
evaluates managers based on their budget expenditure and their material readiness 
condition. 

A number of plans were developed to implement this svstem. For instance 
Accounting System for Fund, and Fund Management Comparison and Evaluation 
System. * they had less success than originally envisioned. It is my opinion that the 
effectiveness of the system) can be increased by widing its implementation to include 
Army divisions and by establishing a vehicle for division managers to easily obtain 
accurate information needed in managing inventory. At the present time performance 
and operating statistics must be manually prepared, which tis a time consunung process 
normally avioded by managers. The proposed system allows managers to acquire the 
needed information in a timely fashion and to support both planning and internal 
perfomance audits. 

The PPBEES measures performance based on a subset of the supplied items. 
The following sections outline the division supply system and the items included in the 
PPBEES system. 


-These two names are literally translated from: Korean. 
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2. Resource flow in the infantry division 
The resources (or fund) flow in the division is divided into two major 
categories, materials and cash. The materials are about 55°o of total value, and are the 


7 


subject of the proposed computer svstem in this thesis, while the remaining 45% 1s 
cash. 

The materials issued to the division are divided into three groups resource 
control number (RCN),? automated supply items, and non monetary valued items, see 


Table | 


TABLE | 
BLDGET RATE OF MATERIALS 


Total Line item 


; Parts, Gasoline, 
PPBEES Materials \fedical Equipment, 
General Supply 


Food, Clothing, Heating Fuels, 
Automated Issue Tactical Construction \laterials, 
Items Ammunition, Assemblies. End items 


Clothing(Officer, NCO) 
Non Monetary Field manual, Technical manual known known 
Valued Items ~ Target 





The RCN grouped material constitutes around 15.3% of the resources, Le. 
30% of material, and are issued by the Logistics Support Command with RCN. These 
are the only items tracked bv the PPBEES system and used in evaluating managers’ 
perfromance. 

The remaining materials, 40% of the budget, are issued automatically without 
users request. We can anticipate that this results in excess stock in some units while 
the other unit run out. The division has no evaluation system for these automated 
issued line items. [Ref. 4: pp.194-196] 


7RCN (Resource Control Number) is the numeric symbol which ts used for 
accounting, execution of supply activities, that connects the cash budget and material 
supply. 
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The division has only basic manual means for recording material consumption. 
The inventory report card contains only the present amount of stock for each item in 
the organization unit. The division should have a svstem to record material 
consumption and evaluate support performance. 

In the present PPBEES there are no means to evaluate the ranking of the 
units in a given period, as well as a number of other problems which make an 
automatized svstem highly desirable. For example; 


e For certain items, the logistics support command sets a ceiling (maximum 
allowance) on the nuinber of units of the item which may be consumed by a 
division each calendar vear. The performance of the division with respect to 
this item is judged based upon the fraction of the maximum allowance which ts 
actually used during the vear. Obviously divisions with larger maximum 
allowances use items more freely , while divisions with smaller maximum 
allowance may suffer from lack of material. This may induce a division 
commander to delay the maintenance of equipment, to continue to use 
substandard material, and to occasionally make inappropriate substitutions. 


Se iicte are 100 many elements to compare. For each REN item there are 20 
criteria used in the evaluation. Each division has 20 units and each regiment has 
23 conipanies. Division managers do not have the required resources to do this 
comparison manually. 


e The system requires too much paperwork. Headquarters must calculate costs by 
equipment and by subordinate units. Both are difficult manual efforts which 
may include significant errors. 


3. Inventory operation and control in divisions 

The supply procedure in divisions is shown in figure 2.2 The principal actions 
between supplier and customers are; requests for issue; turn-ins; and cancellations. 
These actions take place between a unit and a division and between a division and the 
logistics support command. For example when a company sends a “request for issue” 
to a regiment, the regiment passes it to division. The division issues the item if it 1s on 
hand; if not, a request is sent by division to the logistic support command. The 
logistics support command processes the requisition through their computer svstem, 
and generates an issue list containing all the items requested by the division. After the 
division receives the list and material, all due-outs to division customers are filed and 
the remaining material is stored pending the next request. All requests for issues from 
lower units are handled daily, The proposed svstem follows this basic procedure. 

The control measures in these procedures are the authorized storage list 


(ASL), requisition objective (RO), safety level (SL), and order shipping time (OST). 
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Figure 2.2 Division Supply Procedure 
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a. Authorized Storage List (ASL) 

Authorized storage list defines all supplies which can be stored bv the 
supplv unit to meet expected deimand. This is based on selective management similar 
to the ABC classification. The ASL considers econonuc and support performance 
objectives. If support performance was the only consideration, all items will be stored. 
This obviously would be verv costly, would increase the difficulty handling the material 
and decrease the maneuverability of the unit. On the other hand if we consider onlv 
economics the unit performance would be degraded and there would be a serious 
Increase in unnessary stock. Therefore the stock should be the minimum required to 
perform the mission. 

To get the minimum required stock, we have to consider measures of 
effectiveness (MOEs): Let’s assume that total cost= f(x) and support performance = 
g(x). We have to mininuze f(x) and maxinuze g(x), but as x increases both f(x) and g(x) 
increase. There is conflict ! So what 1s usually done is: 


1. Choose a specific minimum value for g(x), 1e g(x) must be greater than this 
value (call it “b’). 


eee viinimuze f(x) subject to gj .»2 b. 

A ranking similar to the ABC system was developed for the demand 
frequency of each item. As shown in Table 2 --(A) , 85% of total demand frequency 
includes only 15% of all items required by the supported unit; even if we increase this 
latter percentage to 50° and reexamine the associated fraction of total demand 
frequency, the increase of demand frequency is only 3-4%. 

This fact suggests that by storing 15-20% of all items it is possible to meet 
85% of the support requirement. This is the basis of ASL, ie satisfying 85% of all 
requisitions. The achieved DFR is the ratio of demand for ASL items to the total 
effective demand. Total effective demand 1s the demand of all items less cancellations. 

ASL is divided into 6 groups: active items, stand-by and essential items, 
Prescribed Load List (PLL) of Organization Unit, the supported units ASL, direct 
exchange and repair parts for new equipment, and substitution of maintenance. 

e The active items are the items included in 85%. of the demand frequency rate. 
e Essential items for any future emergency are decided by the Army Commander. 


e Prescribed load list of organization unit are repair parts and tools intended to 
give worth of support 15 days and must be stored in each organization. 


e When two or more items have functional and physical characteristics that cause 
them to be equivalent in performance, reliability and maintainability, only one 
of the items will be on the ASL 


bo 
toe 


| 
| 


TABLE 2 


_ A). DEMAND FREQUENCY RATE 


Demand frequency rate (%) 


a 







ASL 
50 
B 
:Demand frequency 
Annual dollar 
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A 
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ITEMS NUMBER(%) 
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When stock changes or when catalog data are updated, all additions or 
deletions are made in the ASL. Other changes include inter-changability and 
substitution between items. The deputy chief of staff logistics (DCoSLOG) in the 
Army HQ reviews the ASL semiannually for potential range reductions. Inclusion on 
the ASL depends on the minimum number of times an item is ordered as shown in 
Table 2-C. 

b. Requisition Objective (RO) 

Each ASL item must have an RO recorded in the stock accounting record. 
The RO is the maximum quantity of the item authorized to be on hand and on order 
at any time. Retention of assets above the RO is authorized under certain conditions. 
The RO computations are made in a davs of supply (DOSs) mode or economic order 
quantity (EOQQ) mode. 

(1) Days of Supply (DOS). The DOS mode will be used by nonautomated 
accounts when computing stock for items that are critically short, seasonal, highly 
perishable, or have a shelf life of less than 3 vears. A DOS RO will be computed at 
least semiannually, or when the balance on hand is equal to or less than the reorder 
point (ROP), or when the balance on hand equals zero. 

The DOS RO 1s the sum of the operating level (OL), safety level (SL), 
and order shipping time (OST) in days; multiplied by the quantity demanded during the 
control period (one year for division), divided bv the number of davs in the control 
period. The ROP is the sum of the SL and OST in days, multiphed by the quantity 
demanded during the control period divided by the numbers of days in the control 
period. 

(2) Economic order quantity (EOQ). The EOQ RO 1s the sum of the EOQ 
and the ROP quantities which will minimize the total variable cost of stock for a 
specified performance goal. The performance goal is based on how essential the item 
is. The amount of stock may be constrained by mobility and fiscal limitations. The 
total variable cost consists of order cost (replenishment and wash actions), change cost 
(cost to add and delete an item), cost to maintain an item in stock, storage holding 
cost, and the implied shortage cost. The implied shortage cost 1s not a measurable cost 
(to calculate this cost refer to the Appendix A statistical consideration.) 

The implied shortage cost will be used in automated svstems as a 
Variable to adjust a stock level to meet a specified performance goal. Stock criteria will 
be variable when the EOQ is used by automated systems. The EOQ mode will be used 


by automated accounts (higher than division level so far). 


a8, 


c. Order shipping time (OST) 

OST is used computing both EOQ and DOS. It is the average number of 
days that elapse between the document date of the requisition and the date the receipt 
is posted to the stock accounting record. 

When OST is not available, as in the case of the manual system used in 
DOS, it has to be computed. The computation is based on the average OST of the six 
most recent replenishment receipts and rounded to the next higher number of whole 
days. In computing OST, requisitions are excluded if they have long delavs from 
wholesale backorder, unusual circumstances, or lack of funds. A cumbersome nianual 
process! 

OST is updated each time the RO 1s reconiputed. Because of the fact that 
most of the system Is manual. updates to the OST 1s done annually. 

4. Current documentation and report forms 
The documents maintained bv division logistics departments are classified by 
contents and include; 
e Inventory status for each item 
e Evaluation worksheet for the PPBEES 
¢ Documents for TAMMS?* 
e The record of consumable item consumption 
These report mainly focus on the historic data and are difficult to use in 
computing statistics and information needed by managers. For example the current 
documentation is inadequate to use in material planning. Although it shows the 
current stock level of items, funds, etc. This data can not be used bv a computer and 1s 
difficult to retrieve, sort or manually manipulate to calculate the needed information. 
The format of the recording form is inconvenient. The documents or forms 
should be able to prove the transaction history and also be user friendly. In the 
current documents, transactions are recorded by date sequence, when anv cancellation 
of requisition occurs, it is very difficult to locate and correct all previous records. 


Records written in pencil are hard to use as vouchers. 


*TAMMS is a abbreviation of The Army Maintenance Management System 
Which contains the historic records of maintenance, and operation of all equipment. 
This data will be used in requisitioning of the new equipment requisition. 
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D. CURRENT USE OF COMPUTERS FOR LOGISTICS IN ROK ARMY 
1. Overview 

In March, 1967 the first computer was introduced in Korea to assist with a 
census of the Korean population for the Economic Planning Board. The Korean Army 
installed its first computer system in the Army HQ for the management of military 
personnel in 1972. The next vear another computer was installed at the Logistics 
Command to assist with logistics management. Subsequently several computer centers 
were established. All these computer centers are directly controlled by the staff of the 
Army HQ. [Ref. 5: p.14] 


Main frame 









Main frame 


Logistics Command 


Logistics Support 
Oommand 


Field Army 





Main frame 







Division 


Figure 2.3 Army Logistics Computer System. 


Mini computer 





In the late of 70’s, an integrated software development center was established 
at the Central Automatic Data Processing Center (ADPC) to develop software for the 
mainframe computer used bv the logistics command and Army HQ. The second 
center, the Logistics Management Information Center, was established to support MIS 
development activities in the G-4 of the Army. It endeavors to improve MIS 
capability and has gained the attention of high level managers. 

The hardware installed in the various computer centers is different. IBM 370, 
and UNIVAC 90/30 and 1100 series machines are very common. These are batch 
system and are not connected with each other. The application software, which is run 


periodically by users, was developed using old technology, i.e. flat file system. 


Dy, 


The file svstem and the fact that the computers are not connected results in a 
high degree of redundancy. Each coniputer center, even those under the control of the 
Department of Computers at Army HQ, has several files containing the same data 
elements. For example the Army personnel system, payroll svstem, and medical system 
all contain common data elements Which are updated independently, a potential source 
of data integrity. 

A second problem which has affected the development of the data processing 
field in the arm ts a shortage of qualified personal. 

Recently, high level managers have recognized the need for the 
standardization of hardware and unification of application software. This has resulted 
In an ongoing effort to bring the data processing svstems in Korea to the leading edge 
of technology. Asa result, a number of mini- and microcomputers have been installed 
at the division level. 

2. ADP Support to logistics 

It is necessary for the commanders to have adequate forecasting capability for 
the effective command and control his unit. The use of ADP systems has significantly 
increased the commander's visibility and has had an effect on logistics operations. The 
Automatic Data Processing Center (ADPC) within the logistics structure has provided 
significant support. The ADPC, dedicated to logistics operations, supports its own 
internal functions such as stock control within the responsible area and routine jobs 
such as reports generation for higher commands. Additionally the center provides to 
other departments the logistics information. In the division level, reports are manually 
generated. 

One concern of this thesis is an important report generating function of 
ADPC; the inventory status report. This report is presently created by division G-4 for 
logistics support command mannually. 

This reporting system will be designed in this thesis to provide up-to-date 
accurate inventory status data for major items pertaining to each division. In addition 
to the inventory status report there are many other reports which are needed to control 
the inventory. These reports provide information to the division commander and higher 
logistics support units so that readiness can be evaluated. These reports also indicate 
the shortage and overage of material and, when integrated at higher levels, allow the 
command to determine new procurement needs, prepare budgets, redistribute assets 


and take disposal actions. 


E. SUMMARY 

This chapter presented a description of the existing inventory control system and 
data processing capabilities. Several issues, stated in this chapter, were paramount in 
the decision to develop the proposed inventory control system. For example; 


e The existing system has limited capability in the development of effective 
material management. 


e The PPBEES implementation will benefit from a computerized Management 
[Information Svstem. 


e The documentation in the present system is cumbersome and inadequate for 
managers. 


A database management system can be used to resolve these probleins. A well 
developed one will provide the information needed, maintain records of transactions 
and exchange the information with other computers. 

This svstem has to be user friendly and reduce to an acceptable minimum the 
dependency on the data processing personnel. Its implementation, including 
installation, must be simple and must use the microcomputers available in the various 
units. 

The problem the system resolves is well structured to insure the svstem’s success. 
At the same time the system design has a degree of flexibility to expand at a later 
point. The existing svstem is labour intensive and the proposed system will save 
managers precious time for more important activities. 

The system described in this thesis was designed with these facts in mind. As such 
It resolves a problem bv using microcomputers, and a user friendly interface, and 


allows for electronic communication of data. 
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Ht. RELATIONAL DATABASE MODELS 


A. INTRODUCTION 
The proposed svstem is a relational database management system which uses 
dBASEIIIplus. In this chapter, a brief description of relational database models 1s 


given. 


B. WHAT IS DATABASE? 

A Database is basically a computerized record keeping system, that 1s, a system 
whose overall purpose is to record and maintain information for future retrieval. D.R. 
Howe, the author of Data Analvsis for Database Design, defined a database as “a 
collection of non-redundant data shareable between different application system’. He 
extended his definition by saving that ‘non-redundant means unnecessarily duplicated 
data adds no new information’, sharing data as ‘a multiple usages in multiple 
applications. [Ref. 6: P.1] 

A database should be structured so as to provide a foundation for future 
application development. It can be manipulated into information for management 
purpose. 

A database model is an abstract representation of data. It defines the way that 
data items are organized and related. There are two mayor classes of database 
representation, the physical and logical models. The physical model represents the 
actual structure of the data in the computer. The logical model represents how a user 
perceives the data organization. For example, in an inventory system, we may have 
the following case; 

A number of parts are located in a number of warehouses. shown on Figure &str-A. 

The physical structure may consists of the following files 


e <A part file which consists of the part number and all the attributes which 
specifically describe this part, such as part namie, price, Weight, and the vendor 
supplying this part (assuming that a part is supplied by one vendor only), etc. 


e <A warehouse file which consists of a list of all warehouses and those attributes 
unique to each warehouse. 


e A relationship file which consists of the attributes that describe the relationship 
between parts and warehouses, e.g. number of units of part 1234 (QUANTITY) 
in warehouse A-12 and location of the part in this warehouse (bin 27AC) 
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B. Manager's View C. Worker's View 


A. Relationship 


Zoe A~ LZ 100 27AC 
1234 B-11 | 80 Zi Be 


PROGE | WGHT VENDOR | HNO | DIRECTOR 
1234 re GM =a V1C10| Reagon 
eld foeo8 HD eit WZeo Bus 


Parts file Warehouse file 














‘eo 


Figure 3.1 View of database. 


The logical structure is a user view, and as such it is dependent on the user. For a 
Warehouse manager, the logical view may be similar to the one shown in Figure 3.1-B, 
ie. the warehouse data and the parts available in that warehouse and the vendor of 
each part. 

A second user view may be that of a worker on a machine. In this case the 
person 1s interested in seeing the part data and attributes as well as the warehouses 
where this part is. He is not interested in knowing the vendor or the location of the 
part in a warehouse. 

This type of file structure facilitates adding new views based on user requirements 
without changing the physical structure of the files and reduce the number of 
redundant elements and the update effort. Programs share the data instead of having 
the same data duplicated for each program, creating an update nightmare. 

The database management svstem is responsible for managing the physical 
storage of data. Thus if a data element physical characteristic changes, no 
programming changes are required since each program requests a data element by 
name and is, to a great extent, independent of the element’s physical characteristics. 
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C. RELATIONAL DATABASE MODEL 

The database model discussed in the previous example 1s called the Relational 
Model. A basic quality of the relational model is its simplicity. 
[t was introduced by Dr. E. F. Codd in a seminar paper in 1970. The paper have been 
written concerning the most appropriate way to express relations. He stressed the 
independence of the relational representation from physical computer implementation such 
as ordering on physical devices, indexing, and using physical access paths. Although the 
relational model has many desirable. characteristics, it was, until recently, a subject of 
theoretical interest only. In the last few years commercially viable database management 
system (DBMS) became available ‘and in the early. 1950s, several important DBMS 
products were. introduced. SOL DS (vended by IBM) and ORACLE (vended by 
Relational eo ke Incorporated) are two examples. Since these announcement, the 
relational model has come to be of greater practical significance. 
Ref. 7: pres! 

The following definitions introduce a number of terms that will be used in 
describing the proposed material control model. 

1. Relation 

A relation is a table of data (a file) and consists of rows (tuples) and columns 


(attributes). The data table provides a simple data structure. 


Attribute Attribute 


Lid =Ti-Tit-id Test iteml jes | 120 | 12.90 
bZ22-22-222e2ec2 Test item2 fen | 90 | 15.00 


4444-44-444-4444 | Test item4 Ea 


190 4 
eT Se 


Records 





Figure 3.2 Relation of property. 


Figure 3.2 shows an example of a table (or relation); the table contains six columins 
(each represents an attribute) and five rows (tuple, each represents a specific record). 


The intersection of each row and column in the table contains a value. For instance, 


32 


‘Test iteml’ 1s an attribute value of the attribute tvpe “NM” for the record belonging to 
stock number IEII-LI-111-1111. 
There are a number of constraints that must be observed when building tables: 


e The ordering of rows is not important because the rows can be interchanged 
without affecting the information content of the table. 


e The ordering of coluinns 1s not important either, for the same reason. 


e Each row and column intersection contains a single attribute value. Nfultiple 
values are not allowed. 


e Each row in a table must be distinct; no two rows can have the same attribute 
values throughout. (The significance of this rule is that a row can always be 
uniquely identified by quoting an appropriate combination of attribute values.) 


An attribute value may be null, but a null value does not mean that the 
attribute is blank, e.g. the unit cost of test item4 may be entered in the table after the 
record has been created. 

Each attribute has a domain, a Set of values that the attribute can have. For 
example, the domain of unit cost is a positive eight-digit number with 2 decimal points. 

2. Keys 

he want tO be able to identify cach tuple (récord) in a relation by the value of 
at least One of its attributes. In Figure 3.2, the stock number (SN) is a unique 
identifier since no other row may have the same stock number. 

If there is no one unique attribute, then a combination of more than one may 
have to be used. The table data structure shown in Appendix C includes examples of 
kevs which have more than one attribute. 

3. Record relationships 

The essence of a database 1s the representation of record relationships. The 
relationships can be specified in a variety of ways. 

The relationships are identified intuitivelv. The designer considers potential 
relationship among records that have been defined. A relationships may exist among 
three or four or more records. For example with records of the proposed system, 
MASTER records have many property records, while one PROPERTY record has only 
one ASL record. Many STOCK-OUT records have many MASTER records. 

4. Database Management System 

A database management system (DBMS) ts a software system which performs 
the functions of defining, creating, revising, and controlling the database. It provides 
facilities for retrieving data, generating reports, revising data definitions, updating data, 


and building applications. 


MASTER STOCK OUT 


PROPER PiwOME ry MASTER 





Figure 3.3 Record relationship. 


Several relational DBMS are available. The one used in developing this 
inventory control svstem is Dbase III Plus. The version used is the Microcomputer 
version. However, an extension which includes SQL, a facility which allows sharing of 
data with mainframe computers is under development and will be introduced in the 
verv near future. 

Dbasell{Plus is the market leader among DBMSs in the United States. 
Several supporting products have been introduced such as compuers to increase 
execution speed and application generators to optimize the code execution. It has 
network capabilities which allow sharing of data, and security procedures not available 
in the single user version. [t also has its own programming language, which facilitates 


the development of user friendly interfaces. 
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IV. THE PROPOSED SYSTEM 


A. OVERVIEW 
This chapter describes the existing manual procedures and the proposed 


computerized system. 


B. MANUAL SYSTEM 

Presently, a togistics unit in a division receives a request for issue of an item, an 
Item turn-in, or cancellation of a requested item from lower level organizations. The 
same set of requests occur between the division and the LSC. Transactions are 
recorded in propertv books and this generates a second type of process, that is the 
editing of erroneous entries. 

Transactions are aggregated to produce management reports. which are used 
during the analvsis for the next planning cycle and for evaluating the performance of 
managers. 

Two sets of books exist. the first book is the transaction log in which records of 
each request are kept. Each entry includes the transaction number, date, item ordered 
and quantitv. The second set is the property book which has a page for each stock 
number and the on-hand quantity of this item. When a request is sausfied, both sets of 


books are updated. 


C. THE PROPOSED SYSTEM STRUCTURE 

AS requests arrive at the division, either from outside entities or internal 
personnel, the end user enters the request data using a screen identical in its format to 
the request form. Entries are edited by the svstem for errors using hard coded criteria, 
and stored. 

The system consists of several files and modules. The Batch and Master files are 
similar in structure to the Transactions Record Book, while the Property File and the 
ASL file are similar to the Property Book. An item ts included in one of these latter 
files based on its classification and whether the item is PPBEES trackable or not. The 
Stock Out file combines elements from both books and the Customer file contains 


customer's attributes such as address, customer ID, zipcode, etc. 
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Modules in the svstem perform several functions. For example, when transactions 
are processed the system updates the quantity on hand, creates a transaction record, 
the completion date of a transaction is generated and the transaction record is moved 
to the MASTER file. The date field is used for performance measurement purposes. 
For example the date field will help answer questions about turn around time for a 
specific item. 

[f the stock on hand after satisfving the current demand 1s less than the reorder 
point, an attribute for each item, the stock onhand field, 1s updated to reflect the 
current onhand amount and a request for issue to the supplier will be generated 
automatically. When the amount 1s less than zero, a stock-out record 1s added to the 
STOCK-OUT file, and the svstem sends a delivery delay warning to the user. This 
process 1s illustrated in a flow chart in Appendix C. 

One issue list per customer 1s generated, regardless of the number of items 
requested in one day, under one receipt voucher number. The same 1s true for a request 
for issue to LSC. Figure 4.1 shows examples of the issue list and request for issue. 
The processing of the other type of transactions follows almost the same procedure. 

When the supplier issues stock to the division, the stock 1s examined to determine 
Whether it 1s new, 1.e. initial supply, and if it 1s, the program will ask the user to enter it 
in the property file, and in the ASL file if necessary. 

The fact that the system does not require more than one entry per request and 
that it interrogates all of the appropriate files, without end user intervention, drastically 
reduces the amount of end user time per request. 

The system is flexible and can accommodate a number of potential user requests. 
For example, If a user wants to extend the output information to the tvpe of 
operation, he can add one attribute to Master file for the operation tvpe, the query 
prograin can easily support such requests. 

Figure 4.2 depicts the data flow in the proposed system and Figure 4.3 shows the 


transaction data flow diagram. 


D. THE PROPOSED SYSTEM FUNCTIONS 
1. Transaction tracking 
The main purpose of the transaction tracking 1s to record each customer's 
request for inventory planning and management purposes. The proposed system 
generates reports on the status of each customer's or stock item. Transaction records 
are saved in the Master File for analysis of trends. The ASL file provides criteria such 


as Reorder point, requisition objective, and safety level. 
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ISSUE LIST Page 1 
Date : 11/13/87 


From : The 150 Infanry Division 
To : The 150 div 1501 regiment 
Vocher No:1500QM-0029-7317 


No Stock number Description Onhand Unit Quant'y Price Total 
@ 

1 1111-11-111-1111 Test iteml SORRY! Delay delivery 

2 5555-55-555-5555 Test item5 7976 Roll 300 3 900 
@ 

3 8888-88-888-8888 Test items SORRY! Delay delivery 

Grand Total :§ 900 
Matrial Management NCO :; Date : 
Material Management Officer : Date ; y / 
REQUEST FOR ISSUE Page 1 


Date : 11/13/87 
To : The 3333 Logistics Support Command 
From : The 150 Infantry Division 


Request No : 1500QM-0014-7317 


No Stock number Description Unit Quantity Price Total 
PLU -1l-11li-?t11l1 Test iteml Ea 105 10 1050 
2 8888-88-888-8888 Test items Ea 20 22 440 
Grand Total :5§ 0 
Matrial Management NCO : Date 
Material Management Officer : Date : 


Figure 4.1 Examples of transaction output. 


For management purposes, a manager may ask specific questions on a 
transaction record, a customer’s transaction history, or the status of a certain stock 
item. However, The system stock item queries are limited to the status of the item. An 
extension to determine the location of an item may be added with minor changes to a 
database file. This programming effort may be done by a knowledgeable user. 

2. Report Generation 

One of the most important functions of the proposed system is to generate 
reports required by the logistics support command and the internal division manager. 
The system has a number of hard coded reports and a simple ad hoc reporting facility. 


The hard coded reports are described in Appendix C. 
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Figure 4.2 Main data flow diagram 
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Figure 4.3 Transaction data flow diagram 
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Reports may be classified, into two groups, internal use and external reports. 
Internal use reports are those used for performance analysis. The external reports are 
the transaction output, e.g. the issue list resulted from request for issue of the 
organizational unit, request for issue, request for turn-in are for Logistics Support 
Command. 

Figure 4.4 shows the data flow for report generation. More reports may be 
added to the system, if requested, this will bring the system closer to a complete 


inventory planning management information system. 





5-1 


Starting 
program 
menu 








5-3 


Stockout 
status 
report 









5-2 


Transaction 
status 
report 






transaction history data 


Figure 4.4 Report data flow diagram. 


3. Limited analysis 
The proposed system uses the fixed order size probabilistic model for 
determination of reorder point, safety level, and economic order quantity. 
The assumptions involved in the proposed system are; 
e The demand ts continuous and normally distributed, 
e Annual demand can be obtained through the transaction history record, 
e There are no seasonal effects on demand, 


e The lead time is constant, 
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e Service level for each item is known or determined by managers, 
e The stock-out cost is known. 
Other statistical consideration are presented in appendix A. 

The annual demand is determined by summing the effective demand (total 
demand — canceled demand) and the monthly demand is calculated by dividing annual 
demand by 12. The standard deviation of demand is calculated from the transaction 
record history. The lead time is obtained by computing the arithmetic average of the 
order shipping times from historical data for a specified period of time. 

After all parameters are determined, the reorder point, safety level, and 


requisition objective are calculated and updated. 


IN FORM A Tet ON €er AN A Ly S IS 
You selected stock number : 8883-88-888-8888 
(Test item8, Unit:Ea, Class:8 ) 
Purchasing price(P) : 22 S/Ea 
Annual Demand(R) : 100 Ea/year 
Lead time(OST) in Month : 0 Month(s) 
Ordering cost(c) ; 0.00 S/order 
Holding cost unit per year : .00 & 
(Select one of these) 


Stockout cost(If Known) : 0.00 S/unit Select? N 
Service Level in year : .0000 % Select? Y 


[PRESENT] Reorder point :15 Safety Level :10 
Requisition objective :50 Lead Time : 14 





Is thismre¢ord right? (Y/N): X 
Figure 4.5 The output from analysis process. 


4. Use friendly interface 
One of the purposes of this thesis is to design a user friendly computer 
program. Novice computer users can use it without special training. The proposed 
system provides a user friendly interface by minimizing the possibility of errors. The 
user does not have to know about the disk operating system. And a manager who 1S 
not familiar with a division inventory system can use it, since most of the transaction 


processes proceed automatically. 
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E. SYSTEM LIMITATIONS 

The proposed system is not a perfect system. An objective of this system is to 
improve logistics management capabilitv. This is a difficult task and requires many 
additional software applications. For example, better system would include accounting 
and inventory tracking functions. The proposed system addresses just on main logistics 
function. Constructive comments and remarks are welcomed and solicited. 

1. Demand forecasting 

Demand forecasting forms the basis of managerial decisions and if it is 
accurate, managers don't have to worry about safety level or lead times. 

The proposed system does not forecast demand. The annual demand 
quantities are based on one vear historical records or as specified period. Managers 
can retrieve historical demand data in various forms, by item, period, unit, or 
combinations, and use it in forecasting. 

An extension to the software is needed to provide demand frequency 
information by unit by type e.g. training, exercise, routine job, or special purpose. 

2. Statistical analysis of transactions 

Statistcal analysis was not fullv covered in this system. Onlv two models were 
presented for analysis; the known stock-out cost model and service level model under 
normially distributed demand, were presented. There are a number of other models for 
inventory management. The system should be enhanced by adding various models and 
allowing organizations to choose the model appropriate for their needs. 

3. ASL request 

AS was mentioned in chapter II, the division commander can ask for 
additional items for the ASL for his division. The basis of for this request is also 
described Table 2 in chapter II. The query menu in the software written for this thesis 
allows the division logistics manager to quickly determine if a particular item will 
qualify for stockage in the ASL based upon its demand history. The software for this 
thesis does not, however, include the facility to automatically generate a request to add 
a particular item to the division ASL. 

4. Fund Accounting 

The accounting of the fund (of RCN) ts important to managers, so the 
proposed system is partially prepared to do this function. The resource control number 
(RCN: an attribute of an item) is based on the current PPBEES. While the proposed 
system, includes all the needed elements, it must be extended to perform accounting 


functions. 
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F. ADVANTAGES OF THE SYSTEM 
Bv applying the proposed svstem 


1. The Army can improve one of its logistics objectives: automatic data 
processing. 


tw 


The svstem contributes to the PPBEES implementation by generating tunely 
and accurate reports for various supply units. 


[t allows for more effective utilization of personnel time by shortening the 
administrative process. 


oe 


4. More accurate records can be maintained. 


The system can be extended, with minimal effort, to include fund accounting 
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V. CONCLUSIONS 


A. CONCLUSIONS 

The proposed system is a user friendlv, menu-driven, modularly designed 
database management system focusing on the supply distribution function of the ROK 
Army division. It will reduce investment in personnel, and material and generate 
timely and accurate reports serving division managers. The system may be operated by 
novice as well as experienced personnel. 

To develop this system, the ROK Army logistics structure, current logistical 
management methods, and problems were described in chapter II. The same chapter 
describes current computer usages in the ROK Army. 

The third chapter includes the structure of the database, its major capabilities, 
and benefits. The chapter presents the fundamentals of databases and the database 
management system used in developing the svstem, t.e. dBASEIII PLUS. 

The fourth chapter describes the proposed svstem: what it can or can't do for the 
logistics control management in the ROK Army division. The chapter also adresses 
the benefits of the implementation of the proposed svstem. 

Through the development of this system, the author achieved the primary goal of 
this study by combining the knowledge of the ROK Army logistics management, 
relational database, design of the database management system, and programming 
techniques. The implementation of the DBMS in ROK Army division § should 


contribute significantly to the supply effort. 


Bv using this program, the ROK Army division can reduce, the current volume of 
paperwork and overtime devoted to routine tasks. The proposed system can Save 
personnel and material resources, thereby freeing these resources to other vital 


objectives such as enhancement of the combat power. 


B. FURTHER STUDY 

In this thesis, the author deals only with the distribution function from among 
many other logistics functions. A more comprehensive system would include 
accounting, maintenance tracking, and provisions for analyzing transacton records 


svstem. 
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Different inventory control models would be applied to enhance the database 
management system. Only two of the many models available have been implemented 
in this thesis. 

Networking and interconnecting this system with available mainframe svstems 1s 
another issue not addressed in this thesis. A final objective is to tailor this svstem for 


use In COMmabar situation: 
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APPENDIX A 
STATISTICAL CONSIDERATION 


The material in this appendix is extracted directly from _ Tersine 
[Ref. 3: 131-165.]pp It 1s given here because the decision of safety level, reorder point in 
the proposed svstem 1s based on. 

According to Tersine, when the demand is probabilistic (not deterministic), it 1s 
necessary to mininuze the expected total cost for inventory management. If the 
demand distribution is continuous, the minimum expected total cost expression is 
obtained by taking the derivative of the total expected cost with respect to the decision 
variable and then setting it equal to Zero. 

If leadtzme demand is distributed according to a continous probability 


distribution f(M) then mean leadtime demand is given by: 


N 


el 


= [S°MAM)dM (eqn A.) 


and the standard deviation of leadttme demand is the square root of the variance 


Whicch 1s given by: 


o? = fo°(M — M)? f(M)dM_ (eqn A.2) 


Where: 
M = random variable for lead ttme demand 
f(m) = probability densitv function of lead time demand 
o = standard deviation of lead ttme demand 


MM = mean lead time demand 


The probability of a stockout for a given item is simply the probability that the 
demand during the lead time will exceed the reorder point. The stockout probability 1s 
the first definite integral of the probability density function of demand during the lead 
time from the reorder point to infinity. 

That is: 


P(M>B) = P(s) = J, {M)dM (eqn A.3) 
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Where: B = Reorder point 

M = Random variable for leadtime demand 
The expected stockout quantity during the lead time is the second definite integral of 
the probability density function of demand during the lead time from the reorder point 
to infinity. 


Thais 


E(M>B)= fp (M-B)F(M)dM > (eqn Ad) 


When demand is normally distributed, the reorder point can be obtained from 


following formula; 


B=M+S=M+ Zo (eqn A.5) 
Where 
M = Mean lead time demand in units 
S = safety stock in units 
Z = Standard normal deviate corresponding to the desired stockout 


probability 
6 = Standard deviation of lead time demand. 

Known stockout cost per stockout event 

The proposed system assumes that demand is normally distributed and lead time 
1S COnstant (that is realistic for manv items). It 1s also assumed that a fixed shortage 
cost 1s incurred one time only in each reorder cvcle which experienced a stockout 
situations. This cost 1s assumed to be unaffected by the number of units or requisitions 
which are backordered during a reorder cycle. Since the historical distribution of 
demand is available, the safety stock can be determined by selecting a safety level that 
results in the lowest expected cost. It 1s easy to determine the safety stock using this 
method. The objective is to minimize the sum of the cost of holding the safety stock 
and the cost of the stockouts. The danger of stockout occurs only during the lead 
time. There are R,Q lead times of opportunity for a stockout to occur 1s obtained by 
taking the derivative of the expected annual cost of safety stock with respect to the 
reorder point and setting it equal to Zero. 


Annual cost of safety stock = (holding cost) + (stockout cost) 
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reorder point is taken and set equal to zero, the following relationship is obtained; 


above equation, since the the ordinate f(B) undergoes a change of scale when it is 
transformied to the standard normal distribution. Thus, if we are to find f(B), we must 
find here the standard normal distribution has an ordinate of f(B) <* o The standard 


normal deviate Z for the optimum stockout probability can be obtained directly from 


TC, = SH + GR'Q( SS? (M)dM) — (eqn A.6) 


= H(B — M) + GR P(M>B),Q 


TC. = expected annual cost of safety stock 

B=S+ M = reorder point in units 

S = safety stock inunits 

Ii = holding or carrving cost per unit per year 

G = backordering cost per outage 

R=average annual demand in units 

Q=lot size or order quantity in units 

f(M)= probability density function of lead time demand 


M= average lead time demand units 


If the derivative of the expected annual cost of safety stock with respect to the 


f(B) = HQGR 


However for normal distribution the optimum reorder point is not obtained from 


the standard normal table. 


The optimizing safety stock can be obtained from normal database and the 


following formulas; 


Vvhere 


Z=(B- M)/ 6 =(B-(D * L))( 6p) VE= S(o x JT) (eqn A) 


S=Zo=Zo,J/T (eqnA) 


= standard normal deviate 


D X L + S = reorder point in units 


IST DN 
ll 


= D X L = average lead time demand 
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o = standard deviation of lead tinne demand 
L=lead time 
S = safety stock in units 


6,, = standard deviation of demand for a time period other 


D 
than the lead time. 

Service level is given instead of stockout cost per outage 

Most of the time in the ROK Army stockout costs are verv difficult to obtain 
because of its accounting system. Under these circunistance, using set service level is a 
more rational wav of determining safety stock. A service level indicates a level of 
ability to meet customer demand from stock. 

The establishmient of a service level is a subjective management judgement that ts 
based on convenience rather than scientific justification. The choice by management of 


service level implies a cost attributed intuitively or indirectly to stockout. 


Example: If the annual demand for an item is normally distributed with a mean of 8000 
units and standard deviation of 1000 units, what should the safetv stock and reorder 
point be if the lead time is | 2 month? (assume management has decided it 1s willing to 
be OUL of stock in 976 0! the order evcies) 

From the normal distribution table, Z= 1.64 corresponding to a 5% 

one tail risk of stocking out. 

D = R,12=667 


Gi - oN mee ess 
B= Mer =( Dae E) al ter i ae 067 
S=M,-2* L = 335 


Where: R = Average annual demand 
M., = B = lead time demand at acceptable service level in units, 


The safety stock is 335 units, and the reorder point 1s 669 units. 
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APPENDIX B 
DATA STRUCTURE 


I. OVERVIEW 

There are seven interrelated files in the proposed svstem. The PROPERTY and 
Peeeiie, PROPERTYDBF and ASL.DBF, are used in the inventory control 
management. They contain for each item its stock number, its attributes and its 
iaventory control criteria’ 

The main files for transactions and report and statistics generation are the 
Peereli MASTER, and STOCKOUT files - BATCH.DBF, MASTER.DBF, 
STOCKOLUT.DBF. The batch file is a depository of all the transactions arriving in one 
dav. At the end of the day, transactions are processed and the demand 1s satisfied 
based on the transaction priority, priorities are determined by the unit’s Standard 
Operating Procedure(SOP.) Transactions are moved to either the master or the 
stockout files. 

These three files contain transaction specific data. As detail files,they define only 
those elements defining a transaction and do not include global or unchanging 
elements.such as the customer's description or stock item’s nomenclature. Global 


eleinents are referenced by a unique identifier. 


2. DATA FILES 
a. Master 

Miewelements inthe master filé are SIN, Cl, VN, REONO,-OTY, TYPE, 
UNITCOST, MISC, DATE, and POSTED. The SN field identifies the stock number 
of each item on the transaction and is the key to the items file. CI contaims the 
customer number and is the key that link a transaction to the customer file which 
contains data on customer and supplier. SN and CI link the records to the other 
source files. VN contains the voucher number of the transaction, and REQNO 1s the 
requisition number. 

The remaining fields --QTY, UNITCOST, DATE, contain the quantity, unit 
price, and date of the transaction. The TYPE field contains the transaction tvpe which 
is shown in chapter II, Fig 2.2 transaction procedure. Table 4 in this appendix 


includes a detail description of the contents of the various elements. 
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TANBR Es 
DATA SiR UGRERE 


Database Field name 


Master (SN,CI,VN,REONO OTY TYPE ,UNITCOST Mise DAiewne> LED? 
Primary = SN keys SC Lender Ee: 
Record on all transactions. 


PEOper ey (SN,SERIALNO,NM,UNIT,ONHAND, UNITCOST, TVALUE, 
BoSENCE. CLASS , DATE) 
Primary = SN 
Data on characteristics of stock item. 


ASE (SN, ROP,SL,ROOST,RCN, DATE) 
Primary = SN 
Data on transaction control measures. 


Customer (CI,CDESC,ADDRESS ,ZIPCODE,FUND,EXPEND, 
PRIORITY, DATE) 
Primary == se. 
Data on customer's record. 


Stocioue (SN CL, VN RECHOR REE. ae ,UNITCOST , DATE ,MiS@ ,POSTEu® 
Primary = = SN keys = C PE 
Records on all stockout eee 


Batch (SN, C1, VN REGNC tre Ee ar ,UNITCOST,DATE ,MISC, POSTED) 
Primary = SN keys = CI,VN,REQNO 
Intermediate roConae on Maney val nem 


Normal (TZ,POFB, POFM, EOFZ) 
nokey . 
Table Of normal distripiucien: 


b. Property file 
The property file contains all the information pertinent to each stock number. 
The first field, SN, is the Key for accessing this file. The ONHAND and UNITCOST 
are quantity on hand and the unit cost respectively. For other fields refer to the Table 
3 
c. ASL file 
The ASL file contains all the information on the control measures for each 
item. The first field, SN, 1s the key for accessing this file. RO field is the requisition 
objective defined in chapter two. ROP is the reorder point, whenever the ONHAND 
on property file reaches to this point, the system issues a request for issue to the 
logistics support command automatically. SL is safety level used in calculating the 


appropriate requisition objective. 
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d. Customer file 
The customer file, CUSTOMER.DBF, whose structure is shown in Table 3, 
contains all the information on both customers and suppliers. The customer ID (CI) 1s 
the primary kev for the customer file, allowing quick access to a particular customer 
neeorde Ine field CDESC contains the description of the Cl. The two fields FUND 
and EXPEND, althought not used by the system, are included im this file. Those fields 
provide the flexibilitv to extend the svstem and add fund accounting modules. 
e. Stockout file 
The stock-out file. STCOCKOUT.DBF, contains the Stock Out items. The 
eds SS and Cl link the file to the property file and customer file. The VN field 
defines the transaction. 
f. Batch file 
The batch file holds all transactions for the day. At the end of the dav, 
transactions are processed and fulfilled based on their priority. As a result of the 
processing transactions are transfered to either the master or the Stock Out files. The 
field are the same as master file. 
g. Normal file 
The normal file, NORMAL.DBF, contains the values of the normal 
distribution, which provides the Z value corresponding to sigma. The field EOFZ 


contains the expected number of stockout with the probability of stockout. 


3. INDEX FILES 

The proposed svsten. maintains a number of index files, each database file 
(except normal.dbf) uses at least one index as a primarv index for data retrievals during 
execution of the program. In addition, some files have additional indexes used bv 


programs in printing reports or internal operations. 
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Field name 


Address 
Cdesc 


Class 


Date 
Essence 
Expend 
Fund 
Fundoh 
Mase 


NM 


Onhand 
Ost 
Outdate 
Prlolne y, 
Qty 

RCN 


Refilldate 
ReqNo 


RO 
ROP 


Serialno 


SL 


ON 


Tvalue 


Type 


Type 


Character 


Character 
Character 


Date 
ne Gane 
Numeric 
Numeric 
Numeric 
Logic 


Character 


Numeric 
Numeric 
Character 
Character 
Numeric 


Numeric 


Date 


Character 
Numeric 
Numeric 


Character 


Numeric 


Character 


Numeric 


Character 


Width 


60 
30 


10 
le 
10 


16 


Pm Om re FP W Wm 


16 


10 


16 


10 


TABLE 4 
DAIS Gro Nak 


Dec 


0 O NY NN NN OO OC 


oOo oO © Geo a2 


© 


Location 


Customer 

Address of a customer. 

Customer 

Common name of the customer. 

(Ex. The 150 division 1002 regiment) 
PaOpene 

Material classification. 

(Ex. Stor rues 

All databases 
System date, 
Froperty 
Combat essential item. 

Customer 

The amount of $ spent by customenm: 
Customer 

The allowed fund. 

Customer 

The onhand amount of S. 

Master ,Batch 

Availability to reuse. 

eral 

Description of the stock number. 
(Ex. Hammer, a) 

Property 

oS amount of thee item in storage. 


or real date of the recod. 


Order shipping time (lead time to issue). 
Stockout 
SCouckeut «ate. 
Property 
Issue priority of the customer's. 
Master, Batch, Stockout 
The quantity involved in the transaction. 
ASL 
Resource control number. 
(Ex. 1289 for Rice) 
Stockout 
Refill date of the stockout item. 
Bae Stockout, Master 

uest number composed of zulu date 

sequential number of the order. 


Requisition objective of a stock item. 
ROo=> SL + EO 


ASL 

Reorder point of a stock item. 

ROP = 5s + Oslex Henan rate 

PROD PLY, 

Seri ae number of end item. 

Safety level. 

SL = OST K possibility of stockeu 
Master, ASL, Property, 

Stockout, Batch 


Stock number which is specified to 
every stock item. 
FEOpert 
Total $ value of onhand quantity. 
Master, Stockout, Batch 
Transacton type 
EX. RD = request for issue to divisiven 
rom organizational unit) 


2 


Ca 


Unit 


Mmrtcost 


VN 


Zipcode 


File 


ErEoperty 
sseOmer 
ASL 
Batch 


Stockout 


Master 


TEABIiEE 4 


DATA DICHe Nw sRy (CONT D.) 


Character 4 
Numeric 8 
Character 16 
Character 6 
Index Index 
key name 

SN Snproper 
et Cicust 
SN Inasl 
SN+CI Snembat 
CI Cibat 
SN+CI Stockout 
SN+CI Sctmast 
+ ee 

Cr+sN Csmast 


ORE Gooein ty | 
Measureling unit of the item. 
Exe empend se facn,. Drums. . ) 


Zelaceer, Pigoperty, 


SeOcKOuC, Baccn. 
Uipeepercer,of each tem. 
(Ex. $20.00 for hammer) 


O Master, Batch 


Voucher number. 
(Ex. 1500QM-0012-8309) 


O Customer 


Zipcode of a customer's address. 


TABLE 5 


DN DE er TEES 


Description 


Index by stock number 

Index by customer's ID 

Index by stock number 

Index by stock number and ; 
Customer's ID (Used in transaction issue list) 
Index by customer's ID. 

Index by stock number and customer's ID 

(used in retrieve stockout item which is 
caused by customer) 


Index ey stock number 
and Customer's ID and transaction type. 


Index by customer ID and stock number 


APPENDIX C 
SYSTEM STRUCTURE 


tL. “OVERVIEW 

The proposed system consists of four modules MANAGFL, TRANSACT. 
REPORTS and ANALYSIS performing the following four functions file management, 
transaction processing, report generating and analysis. There are a number of 
subroutines and performing functions common to one or more modules. The system 
Strucutre 1s shown in Figure C.J] The menu svstem designed for tls appieamam 
corresponds to the grav portion on the figure. Appendix D (User's Manual) contains 
detailed instructions on how to use the system. This appendix will concentrate on 


describing the modules. 


7 PNIMAIN 
PMIMAIN is the normal starting point of the program and it displavs the main 
menu and stores the last request and voucher numbers issued by the division. The 


menu 1s used to to select one of the four main modules as shown in Figure C.2 


3. MANAGFL 

This module is designed for file management and contains ten submodules aud 
several screen formats. During the initial system loading, the user needs to enter data 
into Property, ASL, and Customer files using the ADDPROP, ADDASL and 
ADDPROP submiodules. During routine operations, the user may correct entered 
records in Property, ASL, and Customer files by using EDITPROP, EDITASP aia 
EDITCUST respectively. The user may correct transactions using EDITMAST and 
EDITBAT. 

The flow chart in Figure C.3 illustrates the procedure of ADDPROP. premesinee 
the file management procedures are closely related, only one flow chart is presented as 
an illustration. 

The Manageg provides queries on files. The user may consult the present list of 
stock numbers bv stock number, material class, or all stock items. An example 1s 


shown on the Figure C.4 


54 


TRANSACT 


TRSTOCKRI) 


TRBATCH 


TRISSUE 


TRREQLST 


TRSTOCK 


TURNTOLC 


TRTURNIN 


TRTUNLST 


TRCANCEL 





















INVENTORY 
MANAGEMENT SYSTEM 





REPORTS 









RPOST 





(PMAIN) 


MYFILE 


PMMENU 
ANALYSIS 
ANLEADT 










STOCK NO 





oO 









Figure C.1 Detailed system structure 


MANAGEFL 
ADDASL 


ADDCUST 


EK DITASL 


EDITBAT 


EDITCUST 


EDITMAST 


EK DITPROP 
























Invem € or y Management System 


Routine transaction: Management of file: 
Request for issue Add 

Receive item Edit (delete,change) 
Query on transaction Query on files 


Report Generation: Analysis of 
Transaction status report Reorder point 
Stockout report Lead time 
Essential item stockout Requisition Objective 
OST report, Fund status Safety Level 





























at @u.\'§ i°g « 





4 
*¢@ 




























aw O- ric 8 x a 


ii. [Enter Selection (1 - 4, § to change date, or 0 to exit: 





Today is 11/18/87 (ZULU:7322) 


Figure C.2  Pmmain screen. 


4. TRANSACT 
This module includes ten submodules corresponding to the type of transaction, 
and querv on transaction. The overall data flow is shown in the Figure 4.3 This 
module is the main procedure and contains the analysis and report programs. The 
main menu for this module is shown in the Figure C.5 | 
a. StockRD 
This submodule is designed for transaction type RD - request for issue to the 
division from the organizational unit. It stores input transactions, e.g. request for issue 
and turn-in, in a batch file. The submodule checks the validitv of both the stock 
number and the Customer ID. If either 1s invalid, or the number is not included in the 
apprporiate parent file, 1.e. Propertv and Customer files, the program will prompt the 
user to update the parent files prior to accepting the entry. In other words no 
transactions is accepted without a valid SN and CI. The Figure C.6 illustrates the 
procedure. 
b. TRbatch and TRissue 
These submodules are the batch file processing procedures. They check 
whether the ONHAND quantity satifies the total quantity requested in that day. If the 
ONHAND is less, transactions are satisfied based on their priority. The submodules 


generate a request for material when the ONHAND quantity reaches the reoder point. 
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Start 
ADDPROP 


Return 
ADDPROP 
Clear screen 


Select files 


KDE 


Checking for unique SN Add new SN in property 


Look for stockn = SN 
N Y 
Append blank 
Set format to PROP 


, 


eee | 2et format to 


Clear screen 
Tell “Already exist” 


Y Cea N 
Set format to Editprop 
EDIT 





<> 
——<found> N 
Checking for unique SN 
Add new SN in ASL 


Close all files 
Return 
ADDPROP 


Figure C.3 The flow chart of ADDPROP module 
a 


Query on Stock number 


Options 


Stock number 

Class Enter Class Number: 7 
All {0] for class 10 
Return to main menu 


Option: 2 





Page No. i 
11/16/87 
Stock number Listing 
Stock number Nomenclature Price Onhand Requisiton Reorder Safety 


Objective Potint Level 


** Material Class 7 


7520-00-281r-5911 Basket, Waste 10.00 180 180 50 20 
7510-00-984-5787 Binder 12.00 93 190 10 3 
7920-00-141-5452 Handle, Wood 1122.00 438 10 3 2 
7§520-00-904-1268 Marker 2200 200 290 100 30 
7510-00-022-8926 Pencil 1.00 520 7000 100 80 
7510-00-543-6792 Refill 0.20 1120 1800 900 45 
7930-00-141-5888 Wax, Floor 10.00 30 500 25 ES 
7940-00-168-3366 Widget 120.00 25 0 0 0 
7777777777777777 Test item? 26.00 5085 500 280 140 


Figure C.4 Example of MANAGEQ module. 


Finally they are responsible for aggregating all requests from a single customer into a 
one issue list. Figure C.7 shows their flowchart. 
c. TRreaqlst 
Module TRREQLST is used for special events, that is, the manager mav be 
requested to prepare for special events in the division such as training or unplanned 
construction. This module issues a warning to reflect that the input transaction is not 
a regular one. 
d. TRstock 
This module designed for tvpe ‘IL’ transactions, 1e issue from logistics support 
command. This module validates the customer or supplier ID and the item SN as one 
of the authorized supplier, initial supplies, and ASL item. A second check determines 
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Transaction routine 


Type of transaction 


1 : Request for issue to Div Stock number ; 
2 : Issue to customer from Div 
Customer ;: 
: Request for turn-in to Div 
Receive from LSC 


: Request for issue to LSC Information 
: Request for turn-in to LSC 


Today is ....12/02/87 
Cancel RL to LSC (Zulu : 7336) 
; Cancel RD to Div 
Last VN : 15000QM-0031-7317 
Query on transaction Last Reqno : 1500QM-0014-7317 


(Enter Selection from (1 - 9, or 0 to return) ;:1:] 





Figure C.5 Transaction menu screen. 


whether the item received is a stock out item. If it is, the delayed issue list is processed, 
and all related recording is posted (STOCKOUT.DBF, MASTER.DBF). This process 
is shown in Figure C.8 
e. TURTOLC, TRTURNIN and TRTUNLST 
Thesa submodules accepts items returned from units. Turn-in flow chart 1s 
shown in Figure C.9 
f. Query 
This module generates transactions’ reprots. Queries such as how many 
transactions have occurred in given period for specified customer, stock number, 
material class, or all stock number, may be answered. Figure C.10 shows the screen 


menu for this submodule. 
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Start 
(TRSTOKRD) 


Open files 


NEVER FALSE 


Display menu screen 
Select Customer 














Close databases 


RETURN 


N| 


Open cust.dbf 


N 


o_o 
Tell “Do you want to add customer ?” 


Record 
the transaction 





Figure C.6 TRSTOKRD (Request to division) module flow chart 
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REORDER 
POINT 
? 








START 


(TRBATCH) 





OPEN FILES 
SET RELATIONSHIP 


Create TEMPBAT 


Y 
? 


N 
index on SN to TEMPBAT 


Close databases 
Erase TEMPBAT 
RETURN 


N iY, 
Need Ending 
} 
ae: 


Set printer off 






REORDER 
POINT 
? 










Previous 
Request 







Set console on 


| i 


First Of page 
? 


Close databass 






Heading 
Current action 







Erase TEMPBAT 


Pooraissue 


N ¥ 
End of page 
. ? & 


Select Next SN 


Close databases 
Erase TEMPBAT 
RETURN 








Figure C.7 TRBATCH (batch process) module flow chart 
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START 
(TRSTOCK) 










Display screen 
Get mcal,Stockn 







Sum all requested qty N 
Look for MCI1 


— NEVER FAULSE Re 


Cn 


CLOSE DATABASAES 


i 


Ask ” New customer?“ 


" 
Hold values 
Ke 









Select request transact 


Lr 


Select next transact 
















Post transaction 





x 
Do ADDASL 


Figure C.8 TRSTOCK (Issue from LSC) module flow chart 
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START 
(TURNTULC) 


Create TEMPORARY file 
for Reuseable item 


N NO Y 
dala? : 














index on SN to TEMPBAT 


Tell “Ready Printer!” 


Erase TEMPORARY 
Create TEMPORARY file 
for Unreuseable item 


nn 
> 
Y 


PRINTING 
PROCESS 
AS right Shadow 


$$$ mi mm 



















Erase TEMPORARY 


Open BATCH ne: 


Close databases 


RETURN 


Select Transaction type “TD” 


Save Transaction in MASTER 


Delete Transaction in BATCH 
Select Transaction type “TD” 


Figure C.9 TURNTULC (Turn-in to LSC) module flow chart 
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Select next Transaction 


Sales Tracking 


Options 
Detail Sales 
Summary Sales 
Detail Customer Sales 
Summary Customer Sales 
S. Return to main menu 


Enter Option: 1 


Enter period for sales tracking (01/01/87 - 01/01/8 ) 
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Page No. oh, 
11/16/87 
Sales Transaction Tracking 
Detail Sales 
Customer Quantity Price Total 
TDs 
S ** Stock number lllle-lle-lll-llll 
1500 7 10.00 70.00 
1500 88 10.00 880.00 
1§09 i 10.00 10.00 
1509 100 10.00 1000.00 
1509 100 10.00 1000.00 
1509 10 10.00 100.00 
1509 10 10.00 100.00 
1509 40 10.00 400.00 
2333 95 10.00 950.00 
§090 100 10.00 1000.00 
$093 100 10.00 1000.00 
se Suotetal ** 
651 6510.00 
**)stock number. 2222-22-e22-ce220 
1500 97 10.00 970.00 
1500 97 10.00 970.00 
1504 100 2.00 200.00 
1507 10 2.00 20.00 
1508 200 2.00 400.00 
ee suocotal ** 
$04 2560.00 
** Stock number 3333-33-333-3333 
1S00 25 0.00 0.00 
1509 2 102.00 204.00 
1509 a 102.00 204.00 
§012 2 0.00 0.00 
5014 1 102.00 102.00 
§032 2 102.00 204.00 
** Subtotal ** 
34 714.00 


Figure C.10 Example of Query on transaction module. 


5. REPORTS 

This module consists of RPTSR, RPOST, RPEIS, RPSOR for transaction status, 
order shipping time, essential item stockout, and stock out reports respectively. Each 
module creates temporary files and erases them at the end of session. The selection 


screen in this module is shown on the Figure C.11 followed by examples from the 
various reprots, 


R E P O R T S 










Last TSR Report Date 
11/12/87 


Type of Reports 










1 : Transaction Status Report 
(DA form 3183) 






Today....11/16/87(7320) 


Biginning Date - Ending Date 
Gee ie »/ f/f ) 






2 : Stockout Report 
(DA form 3184) 


















OST Report 
(DA form 3185) 





4 : Combat Essential Item 
Stockout Report 
(DA form 3186) 

















{Enter Selection from (1 - 4, or 0 to return) ; 


J 


Figure C.11 Report module menu screen. 


Rerfer to the Figure C.12, Figure C.13 and Figure C.14 
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START 
(RPTSR) 





(Create temporary file for conditions) 
Conditions : Type =RL, IL, CL, TL 

Period = User Entered 
Selection = All, Class, Sn 









Erase temporary files 


CLOSE DATABASAES 7 ae: . 


ae 


Return / Tell ‘Calculating’ / ‘Calculating’ 
Initialize variables 
a 


Printer off 





Sum QTY of “RL” & date < begdate 
Sum QTY of “IL” & date < begdate 
Save ~Oue/in~ 


(Sort by transaction type - Print) 


¥ Ky N Return 
<> 
? 






Erase temporary files 









CLOSE DATABASAES 


Sum Quantity for “Ri” 









Sum Quantity for “IL” 


Sum Quantity for “TL 


OKDLY 


HEP IE EE 


Sum Quantity for “CL~ 


Select next stock No 


Select next transaction 


igure CU. ab loh (lransaction status report) module flow chart 
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START 
(RPOST) 














Create ILMAST for all 


Create RLMAST for all 





Create ILMAST for Item 
Return 


| 
Erase temporary files Tell “Send to printer ?” 


CLOSE DATABASAES 
ol 


Tell ‘Calculating’ 


Initialize variables 


Erase temporary files 
| CLOSE DATABASAES 


Look for CLASS NO 
ee 


| 
Beg of page 
? 
ee) aia 
of transaction 














(7,15,30,60,90) 


PRINT by STOCKN 
CLASS, and TOTAL 


ae 


Select neat class 





Sum total days & qty 
| 
Select next transact 









Class End 


Figure C.13 RPOST (Order shipping time report) module flow chart 
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(Create temporary file for conditions) 

Conditions : From stockout .dbf 
Period = User Entered 
Selection = All, Class, Sn 





Erase temporary files N 4 Y 








ao) 


Return Tell ‘Calculating’ 


Initialize variables 
t 


Select request transact 


ite 
N 
Look for CLASS NO,SN 








Sum days for * >90” 
Select next stock No 
Select next transaction |-————— > 


Figure C.14 RPSOR (Stockout report) module flow chart 
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6. ANALYSIS 

This module consists of three procedures, ANLEADT, ANEOQ, and ANPROC 
and is used to calculate the average lead time of any stock item. The Average Lead 
Time is used in calculating safety level, reorder point, and finally economic order 
quantity. The module ANPROC has many procedures which contains zulu date, 
average, Standard deviation, and variance. These procedures are called from the 
ANALYSIS module whenever needed. The data flow in this module is shown in 
chapter three limited analvsis section. The detailed process is in the flow chart in 


Figure 4.5 The first screen of this module is shown on the Figure C.15 


ANALYSIS of TRANSACTION 
Today : 11/16/87 


THIS SYSTEM USES THE PIXED ORDER SIZE SYSTEM WITH PROBABILISTIC 
MODEL. THE PIXED ORDER SIZE SYSTEM IS COMPLETELY DEFINED BY THE 
ORDER QUANTITY [(Q] AND REORDER POINT (B8]. THE RISK OP STOCKOUT 
OCCURS APTER REORDER POINT. TO GET [(Q],{B], YOU HAVE TO DECIDE 
SERVICE LEVEL, OR STOCKOUT COST PER UNIT. THIS SYSTEM ASSUMED 


' BACKORDER CASE WITH SERVICE LEVEL INSTEAD OF LOSTSALES CASE. 


Enter stock number : - - - 


Enter time period you want to test( 01/01/87 - 12/31/87 ) 
Begin End date 





Leave BLANK any space to Exit 


Figure C.15 Analysis module screen. 
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APPENDIX D 
USER’S MANUAL 


ie INTRODUCTION 
The proposed system is for the manager who works at the ROK Army division 
or lower level logistics management. It is written in dBASEIII Plus programming 
language.. Routine transaction handling, transaction tracking, reports generation, and 
limited analysis on the transaction records can be accomplished with this system. 
The proposed system consists of three diskettes. One contains the software code 
developed in this thesis, the other two are dBASEIII plus system diskettes. 
a. Requirements 
The proposed svstem runs on the IBM PC family of computers, including the 
AT and AT, along with all true [BM compatibles. DBASEIII PLUS requires the 
following; 
1. The ABASEIL PLUS program disks and manual. 
2..4n IBM PC, IBM XT, COMPAQ, or other 100 percent IBM PC- 
compatible computer with a monochrome or color monitor. 
. MS-DOS or PC-DOS 
. At least 256k of memory. 512k or more is suggested. 
. Two 360k floppy disk drives or one 360k drive and a hard 
disk drive. A hard disk is suggested. 


Te 


Ln 


6. A printer with at least 80-column capability is suggested. 
[Rel Spe 
b. Organization 
The remainder of this manual is divided into two sections. Getting Started, 
describes the contents of the proposed system and how to install it. Working with the 


Proposed System, describes how to operate thie system. 


2. GETTING STARTED 

The code of proposed systern occupies one diskette only. Since the proposed 
system is not compiled, it needs the dBASEIII plus system diskettes. The proposed 
system assumes that dBASEIII plus is available in a subdirectory DBASEIII. So 
install Dbase III Plus in a subdirectory called DBASEIII, see Dbase III manual for 


instructions. 
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a. Configuration 
Before installing the svstem, ensure that the config.sys file in your system contains the 
following commands: 
BUFFERS = 15 
FILES = 20 
[f vour system does not contain a config.sys file, vou may copv it from the Dbase II] 
svstem diskette. 

You also need a config.db file in your dBASEIII subdirectory with command 
Berehic ADs 20. [ivou do not have this file, copy it trom the Dbase III system 
diskette. If vou have config.db add the command and erase config.db file from the 
proposed system. 

vou can create either or both files using the DOS editor or the following 
commands; 


Copy con config.db 


enaeean 


You may want to get into the system directly from the bootup. If this is the case, add 
the following commands to vour autoexec.bat file. 

PATH = C:\;,DOS; dBASE! 

CD dBASEIII 

DBASE 

CD 
Now you are ready to install the proposed system in your computer. 

b. Sunimary of the proposed system disk. 


The thesis system disk contains the following programs and files; 


Extention 

DBF ASL CUSTOMER NORMAL MASTER STOCKOUT BATCH PROPERTY 

PRG ANALYSIS ANLEADT TRREQLST RPTSR ADDPROP EDITBAT MANAGEQ 
SELECT ANEOQ REPORTS TRBATCH ADDASL TRTURNIN RPEIS 
PRINT TRCANCEL RPOST RPSOR TRISSUE EDITCUST TRTUNLST 
EDITMAST CONTINUE ANPROC PMAIN TRANSACT TRACKING EDITPROP 
TURNTOLC MANAGEFL PMMENU TRSTOCK SETUP ADDCUST EDITASL 
TRSTOKRD PRINTER 


a 


SCR EDBAT BATCH ASL EDITMAST EDITPROP MAST CUST 


PROP EDITCUST EDITASL TURNIN CANCMAST 
FMT PROP EDITPROP EDITMAST EDITCUST £0@ EDITBAT | MASKMENU 
TURNIN BATCH EDITASL CUST MAST ASL CANCMAST 
FRM TRANRP1 TRANRP2 TRANRP3S TRANRPG  CUSTRP1 STOCKRP1 
NDX SNPROPER CICUST INASL CIBAT STOCKOUT SCTMAST  SNCIBAT 
CSMAST 
OTHERS INVENTOR.CAT MYFILE.MEM CONFIG.0B CONFIG.sYs If vour disk 1s 


Imissing any of previous files, it will not work. 

After confirming the existence of all the files, you are ready to install the 
system in your coinputer. 

It is recommend that you install in a subdirectory called CONTROL in the 
DBASE III subdirectory. To create the subdirectory, insure that you are in the 
DBASE IIT directory and type; 

VD CONROE 

Change directory to ‘CONTROL’ by typing cd d(BASEIT] CONTROL and insert the 
proposed svstem diskette in drive A, and copy all files into C: using the following 


commands; 


CD dBASEIT, CONTROL 
COPYING ae. 
CD 


Now you are ready to start. 


ia 


3. WORKING WITH THE PROPOSED SYSTEM 

At the DBASE III °.” prompt, type “DO PMAIN” to get the main menu in 
Figure D.1, the starting point of the system. At the main menu, you may execute one 
of five actions. Options | thru 4 will start one of the four program modules. The fifth, 


initiated by typing 5, allows you to change the system date. 


Inventory Management Systea 


Routine transaction: ..,| Management of file: 
Request for issue ae Add 

Receive item Edit (delete,change) 
Query on transaction ee Query on files 


Report Generation: i Analysis of 
Transaction status report Reorder point 
Stockout report Lead time 
Essential item stockout ’ Requisition Objective 
OST report, Pund status Safety Level 


{Enter Selection (1 - 4, 5 to Change date, or 0 to exit: :] 





Today is 11/18/87 (ZULU:7322) 


Figure D.{ Main menu(PMAIN). 


a. Routine transaction 
You have reached this point by choosing option | from the main menu. This 
submodule allows to enter transactions and follows the same procedures as the division 
supply support action among logistics support command and organizational units. 
There are nine options on the menu screen, see Figure D.2 
I. Request for issue from a customer 
This is the procedure to accept a request for issue from your customer and 
you reach this point by choosing option | from the Routine Transaction Menu. This 
screen is shown in Figure D.3 
The program will check the validity of the customer and stock numbers. If 
either is invalid the program will not accept it and it will prompt you to check its 


validity or add it to the appropraite file. 
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T © a neg a Gata o fn routine 


Type of transaction 


1 : Request for issue to Div Stock number : 
2 : Issue to customer from Div 
Customer : 
: Request for turn-in to Div 
: Receive from LSC 


: Request for issue to LSC Information 
: Request for turn-in to LSC 


Today ?s.....12/02737 
: Cancel RL to LSC (Zulu : 7336) 
: Cancel RD to Div 


Last VN : 1500QM-0031-7317 
: Query On transaction Last Reqno : 1500QM-0014-7317 





{Enter Selection from (1 - 9, or 0 to return) :1:]) 


Figure D.2 Routine transaction menu screen. 


Enter the customer and stock numbers and quantity required. The menu 
will prompt you for additional items, and the program will generate a request number. 
For additional customers change the customer's code and follow the same procedure. 

2. Issue to the customer 

This program will generate an issue list for each customer. You have 
reached it by choosing option 2 from the transaction routines. This procedure will be 
executed once every day . The system will integrate all of the request for the day to get 
the allowance, and consult the availability of the item in stock. If an item is short to 
meet the requests, it will follow the priority to issue, then report the request for issue to 
the logistics support command. 

You may get a print out if you so desire. Examples of the reports are 
shown in Figure D.4 

3. Request for turn-in 

This procedure handles requests for turn-in from a customer. You have 
reached this option by entring 3 from the Routine Transaction Menu. The screen is 
shown in Figure D.5, Enter the required elements and, when prompted, prepare the 


printer. An example of the output is presented below the screen. 
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Requset for issue 
Moday .s0¢. 11/16/87 


Requested From : Division aviation bn 
Send To : The 150 Infantry Division 


Request for Issue to Div 


Type of transaction : (RD) | Request No : 1509S4-0019-7320 


( Customer's) 


Stock Number :5555-55-555-5555 
Description :Test item5 
Unit :Roll Price ;: 


Quantity :500 





Is this record correct ? xX 


Figure D.3 Request for issue from customer screen. 


4. Receive stock item from LSC 
Select option 4 from the Routine Transaction Menu to reach this point. 
Enter the elements shown on the screen in Figure D.6 The possible output is below the 
figure. 
This procedure is complex and it validates the customer and stock number, 
checks due-ins and due-outs, and delay issue of the item. 
5. Direct request to LSC 
Option 5, 6 will work for special request for issue to LSC. This procedure 
is not for routine transactions. A warning will be issued when you access these options. 
6. Cancellation of request 
Options 7, 8 will execute user’s cancellation requests. Upon selection of 
one of these options you will receive the screen shown in Figure D.7 After you enter 


the data, you will be prompted to confirm the record the transaction will be cancel. 


iS 


REQUEST FOR ISSUE Page 1 


To : The 3333 Logistics Support Command ake: +h 


Prom : The 150 Infantry Division 
Request No : 1500QM-0014-7317 


No Stock number Description Unit Quantit Pri 
mc 
L L1l1l-11-111-1111 Teste iteml Ea 105” 10. Test 
2 8888-88-888-8888 Test items Ea 20 22 440 


Grand Total :$ 1456 


Matcial Management NCO : Date : i. a 
aD * RE ee oa a 
Material Management Officer : Date : / / 
ISSUE LIST Page l1 


Date : 11/13/87 


Prom : The 150 Infanry Division 
To : The 150 div 1501 regiment 
Vocher No:1500QM-0029-7317 





Ne Stock number Description Onhand Onit Quant y Price Total 
L Lll1-11-111-1111 Teste iteml SORRY! Delay delivery 
‘3 93555-55-555-5555 Test item5 7976 Roll 300 3 900 
3 8888-88-888-8888 Test items SORRY! Delay delivery 
"Grand Total :$ 900 
Matrial Management NCO : Date : 
Material Management Officer : Date ; 7, a 


Figure D.4 Batch process examples. 


b. File management 

It 1s important to enter the Property, ASL and Customer files data first. This 
will limit the interruptions due to nussing CI and SN. To save the necessary data in 
advance or during the routine transaction job, choose option 2 from the main menu. 
It will display the screen shown in Figure D.8 From this menu, you can add customer 
and stock numbers to the Customer, Property, and ASL files. You can also edit 
records in these files as well as the Master and Batch Files. 

There are nine options on this screen, these are 

I. Addition 

(1) Customer. These programs add customer, supplier and item to the 

appropraite files. On selecting the number 1, the stock number shell will be blocked, 
and customer shell will await your entry. You must know the customer's code, usually 
the four digit common name of the unit. After entering the code of the customer, the 
system validates the record in customer file to prevent duplication. Once confirmed, 
the next screen which is named ‘customer file’ in Figure D.9 will appear. Enter the data 


and confirm that the record is correct. Your confirmation adds the record to the file. 


76 


Request for turn-in 
Toad). ates 11/16/87 


From : 5010 Regiment 2 Bn 
To : The 150 Infantry Division 
Type of transaction : (TD) 
Request for turn-in Request No : 5012S4-0011-7320 
Stock number=: lllI—-F¥-111-1111 


Description : Test iteml 


Unit : Ea Reuseable? : Y 


Price: Quantity 





Is this record correct ? X 


Figure D.5 Request for turn-in from customer. 


Receive newstock from LSC 
Today iis... 21/16/87 


Receive from :The 3333 Logistics support Cmd 
Send to :The 150 Infantry Division 


Type of transaction : 


Voucher No : 1500QM-0027-7320 
Receive newstock from LSC a = 


Request Number: 





Stoek Number: 1111-1l1-=111-1111 


Description :Test iteml 


Unit : EA 
Quantity 95 Reusable? : T 
Price 10.00 


Is this record correct ? xX 
Figure D.6 Receive stock item from LSC. 


To add a property record in your property file, select option two. On 
selecting the option the customer shell will be blocked and stock number shell will be 


highlighted. After you have entered the stock number the system will validate your 
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Cancel Request for issue item 
Today ..11/16/87(7320) 


Stock number : 22227-22-222-2222 
Customer Code: 1500 


Request number: 1500QM-0009-7305 


Quantity : 97 Price ;: 10.00 Date :(11/0)/87 





Is this record what you want to cancel?(Y¥/N) N 


Figure D.7 Cancellation of request screen. 


Management of files | 


1.To add Customer (CI) 
4.To change Customer (CI) 2.To add Property (SN) 


3.To add ASL (SN) 


Today is ....11/19/87 





















-To change Property (SN) 














-To change ASL (SN) 








-To change Master (SN+REQNO) 











eo nN KN WN 





-TO change Batch (SN+REQNO) 







Stock number : XXXX-XX-XXX-XXXX 
(Or/And) 
Customer code : 












9.Query on files 








13 





] 


(Enter Selection (1 - 9, or 0 to go to mainmenu) 







Figure D.8 File management screen. 


entry. If accurate, you'll see the next screen, in Figure D:10 Steps similar to customer 
addition are followed. However, since the ASL list is closely related to the property list, 
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Todayils «2. «onn aayM@iG/ 87 


Customer Code 2222 Priority 6 


Name Test unit 


Address Example city 


700-11 Zip code 





Is this record correct ? fr 
Figure D.9 Customer addition screen. 


the program will ask you whether the item is also an ASL item and will added to the 


ASL file if necessary. 
Property Book file 


Stock number 8989-89-898-9898 
Serial NO 
Description Example item 


MO Gay 1 cists ceseteis ane 11/16/87 


Unit : ball Class 


On hand 


Is this combat essential item ? 





Is this record correct ? : xX 


Figure D.10 Property list addition screen. 


oo 


Another method to add an ASL is to add it directly to the ASL file by 
choosing option 3. It is suggested that you use this method in the case of a newly 


allowed ASL item. The screen for this option is shown in Figure D.11 


Authorized storage list file 


Stock number : 1111-00-111-0001 


Today is ...... 12/027 


Reorder Point : 100 
Safety Level : 20 


Requisition Objective ;: 5000 


Order Shipping Time eee 2 days 


Resource control number ;: 1122 





Is this record correct ? : xX 


Figure D.!11 ASL list addition screen. 


2. Editing or Deletion of an entry 

There are five options in this process. Options 4, 5, 6 are equivalent to 
option 1, 2, 3 respectively. Option 7 allows you to change type TL records, Giicr 
records’ types are automatically saved through the transaction process. Option 8 
allows edits of any type of transactions so use it carefully. 

(1) Customer. From the screen ‘management of file’ in Figure D.8, select 
option 4, You will be asked to enter the customer's code that you want to change or 
delete. On entering the code the program retrieves the customer record from the 
customer file and displays the next screen in Figure D.12 Edit the screen and exit by 
pressing the CONTROL and END keys at the same time. 

(2) Property and ASL. This procedure is almost same as the option 4. 
Take option 5 for property and 6 for ASL. The edit screen for the ASL list is shown in 
Figure. is | 
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Edit or Delete CUSTOMER file 
Today... « 11/16/87 


Customer : 2222 code Polomity = 6 


Test unit Description 
Example city Address 
700-11 Zipcode 


Fund allwed : 0.00 
0.00 Expend 
0.00 On hand 
Last edit date : 11/16/87 


(Insert mode) : Ins (Record) Next : PgDn 
(Delete) Character :Del Previous : PgUp 
Pield: “Y Record: “U (Done/Save) : “End Abandon :Esc 





Figure D.12 Customer record editing screen. 


[edit Authorized Storage List file | 
Today ..... 11/29/87 


Stock number s: 2222-22-222-2222 


ReOrder Point : 80 Order shipping time : 21 days 
Safety Level : 30 Date : 09/12/87 
Requisition Objective : 180 


Resource control number ;: 2222 


(Insert mode) : Ins (Record) Next : PgDn 
(Delete) Character :Del Previous : PgUp 
Pield: “Y Record: “U (Done/Save) : “End Abandon :Ese 





Figure D.13. ASL lst record editing screen. 
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(3) Master file records. This procedure edits the master file records. It 
requires you to enter the stock number, the customer’s ID, and the date of the 


transaction. Its screen is shown in Figure D.14 


Edit/Change Master file 
TOGA Gy sices state 11/297 39 


Stock Number =: ged33 3-339-333-3333 
Customer code : 1504 Action Type : 


Request Number 1500QM-—0032-7 33 
1504S4-0001-7330 Customer's 


Quantity 
Price LOZes Reusable ? : T 
Date : 11/29/87 


(Insert mode) : (Record) Next : PgDn 


(Delete) Character :Del Previous PgUp 
Field: “Y Record: “U (Done/Save) : “End Abandon :Esc 





Figure D.14 Master file record editing screen. 


(4) BATCH file records. Sometimes vou need to change records already 
entered in the ASL file through transaction routine. This procedure is more generous 
than option 7. You may enter the information you have, when you get the screen in 
Figure D.15, you will find out appropriate record by using the function keys which are 


given below the screen. 
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Edit(change or delete) Batch file 


Stock number ; 3333-33~-333-3333 


TOGAY wumeaes ose iy 29787 


Voucher number : 1504S$4-0001-7330 
Customer Code : 1504 
Type of action : RD Posted 


Quantity : 10 Unitcost : 102.00 § 
Date ;: 11/29/87 


(Insert mode) ;: Ins (Record) Next : PgDn 
(Delete) Character :Del Previous : PgUp 
Field: “Y Record: “U (Done/Save) : “End Abandon :Esc 





Figure D.15 Batch file record editing screen. 


c. Reports generation 
_Four Types of reports are available in the system, Each report, other than 
combat essential item stock-out report, may be generated by stock number, by material 
class, and all. You can get both printed and screen reports. The menu screen 1s 
presented in Figure D.16 
1. Transaction status report 
To get the transaction status report, select option | and enter appropriate 
time period. Select any option you want from the screen in Figure D.17 For example, 
if you want to get the transaction status reports on material class 2, select option 2. 
You will be asked to enter the material class, and the type of report,ie screen or print 
out. It is recommended that you postpone requesting the print out till you check the 
output on the screen. 
Examples of each option are presented in Figure D.18 
2. Other Reports 
Other reports can be obtained using the same procedure as the transaction 
status report. Select 2 for stock-out, 3 for order shipping time, 4 for combat essential 


item stock-out reports. 
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R £ P O R T S 


Last TSR Report Date 
Transaction Status Report 11/12/87 
(DA form 3183) 


Today....11/16/87(7320) 
Stockout Report 


(DA form 3184) 
OST Report 


(DA form 3185S) 

Biginning Date - Ending Date 
Combat Essential Item 
Stockout Report (oJ Sf - / ¢ ) 
(DA form 3186) 


{Enter Selection from (1 - 4, or 0 to return) : 3] 





Figure D.16 Reports generation menu screen. 


Sales Tracking 


Options 
Detail Sales 
Summary Sales 
Detail Customer Sales 
Summary Customer Sales 
5S. Return to main menu 


Enter Option: l 


Enter period for sales tracking (01/01/87 - 01/01/8 ) 





Figure D.17 Transaction status report option menu. 


d. Analysis 


From the main menu screen select option 4. When you get the screen in 
Figure D.19 enter the stock number you want to analyze and the time period. 
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Transact Status Report Page 1 
Date : 11/06/87 


From : The 150 Infanry Division 
To : The 3333 Logistics Supprot Command 


From To 
01/01/87 =- 01/01/88 

No Stock number Description D/Ibeg Req’ st Cancel Rec've Turnin O/Inow 
1 lLll1l-1ll-1L1ll-1111 Test iteml 0 950 0 0 0 950 
i So SS RS SS Se SS www 
Subtotal 0 950 0 0 0 250 
lo 22eac -acamecce-coce Bese ictém2Z 0 970 0 0 0 970 
Class 2  pmpmmmmmm mm mwnn ee em mn ne mms eres es eer ee ene --- 
Subtotal 0 970 0 0 0 970 
L 3888609357 333-3333 Teste item3 0 0 0 0 0 0 
Class 3 ppm mmm nn nn nnn enn mn ee ee nn nr enn eee ee == 
Subtotal 0 0 0 0 0 0 
1 8888-88-888-8888 Test items 0 0 0 264 0 -264 
Class 8 emp en mer nn ee ne 2 ee oH ee = = 
Subtotal 0 0 0 264 0 -264 
1 9999-399-999-9999 Test item9 0 0 0 24 0 ~-24 
a a = == === == 
Subtotal 0 0 0 24 0 -24 

Matrial Managerent NCO : Date :; i / 

Material Management Officer : Date : / f 

Stockout Report Fage l 


» 


Date : 11/06/87 


To :; The 3333 lLogistics- Supprot Command 
From : The 150 Infanry Division 


No Stock number 


1 1L1l1l1-11l-1l1ll-1LLlL1 
Class 1 
Subtotal 


I Z2ece-2zesee2- 2222 
Class 2 
Subtotal 


1 35955=55-555-5555 
Class § 
Subtotal 


1 8888-88-888-8888 
Class 8 
Subtotal 


Total 30days 60days 90days l120days 


Total Cost Item Cost Item Cost [Item Cost Item Cost 
0 0 0 0 0 0 0 0 0 0 
wo OMEN ch Go SC 

37/0 740 370 740 0 0 0 0 0 0 

370 740 «370:«27402C'*~C*«~“ a‘: ]OU:CCCtC 

1000 3000 1000 3000 0 0 0 0 0 0 

1000 3000 1000 3000 0 . 0 #06 0 0 0 

100 2200 100 2200 0 0 0 0 0 0 

100 2200 100 2200 «00 «0 0 0 +0 + 0 
Date : i yi 


Matrial Management NCO 


Material Management Officer : Date : 7. aD 


Figure D.18 Examples of Transaction status reports. 
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The time period will effect the output results. Choose longer period to 


increase the confidence in the results. 


ANALYSIS of TRANSACTION 
Today : 11/16/87 


THIS SYSTEM USES THE PIXED ORDER SIZZ SYSTEM WITH PROBABILISTIC 
MODEL. THE PIXED ORDER SIZE SYSTEM IS COMPLETELY DEFINED BY THE 
ORDER QUANTITY (Q] AND REORDER POINT [B]. THE RISK OF STOCKOUT 
OCCURS APTER REORDER POINT. TO GET (Q],({B], YOU HAVE TO DECIDE 
SERVICE LEVEL, OR STOCKOUT COST PER UNIT. THIS SYSTEM ASSUMED 

BACKOROER CASE WITH SERVICE LEVEL INSTEAD OF LOSTSALES CASE. 


Entec stock number : - - = 


Entec time period you want to test({ 01/01/87 - 12/31/87 ) 
Begin End date 





Leave BLANK any space to Zxit 


Figure D.19 Analysis start-up screen. 


You may try as many time as you want with different possible data. However you 
Should select one method onlv. If you do not enter an element, default data will be 
assumed (ie, service level 85% and holding cost rate 15% of the annual inventory). 
After entering data into the screen in Figure D.20, the program will display the results 


and will instruct you on how to save them. The result screen is shown in Figure D.20 
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Tvtlepeo RM A TeteorNe tom a NA LY S £ $04 
You salected stock number : 8883-88-888-3888 

(Tesc item8, Unit:Ea, Class:8 ) 

Purchasing price(P) : 22 S/Ea 
Annual Demand(R) : 100 Ea/year 

Lead time(OST) in Month : O Month(s) 
Ordering cost(C) : 0.00 S/order 
Holding cost unit per year : 0.00 % 
(Select one of these) 


Stockout cost(If Known) : 0.00 S/unit Select? N 
Service Level in year : 0.0000 % Select? Y 


(PRESENT] Reorder point :15 Safety Level :10 
Requisition objective :50 Lead Time : 14 





Is this record right?(Y/N): X 


Figure D.20 Variable entering for analysis. 


e. Query ~- 

Two tvpes of queries are available. One is transaction tracking, and the other 
querries On a customer or present status of a stock number. | 

For the management purposes the transaction records on a stock item or 
customer's records may be monitored. You may ask for detailed or summurized 
transaction record. Select option 9 from transaction menu screen. After the screen on 
Figure D.21 comes up, select any option. 
lor example: 

If you want a customer's transaction detailed record, select option I. You will 
be prompted for type of output,ie screen or print out. 

If you need to know the present inventory status on a stock number, material 
class, or all items, select option 9 from the file management ‘menu on Figure D.8 The 
next procedure is the same as the transaction tracking. The options are presented on 
figure 1.22 
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Sales Tracking 


Options 


- Detail Sales 
- Summary Sales 
- Detail Customer Sales 


Summary Customer Sales 
3. Return to main menu 


Enter Option: 1 


Enter period for sales tracking (01/01/87 - 01/01/8 ) 





Figure D.21 Transaction tracking. 


Query on Stock number 


Options 


Stock number 
Class Enter Class Number: 7 


All {0} for class 10 


- Return to main menu 


Enter Option: 2 





Figure D.22 Query on stock number. 
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APPENDIX E 
PROGRAMI LISTING 


NIAIN MENU 


a. PMAIN 

KAKKK RR RAK KKK AKER KKK KKK RRR KKK KKK RRR RRR RRR RK KR RRR RK RR RRR RR RK RAK KR 
RAEKKKKKKAKKRKKAAKAKKKKKKAAKK PMAIN.PRG KRAAEKKKKKKKAKKAKKAKRKRKRKAAKAKRRKAKKK 
KARR KR RRR IK RAK RRR RRR KK RRR RRR RK RRR RRR RRR RRR RRR RK RRR RRR RR RR 

Module name....: PMAIN. Bg z 

PMOL ss. ce6see2 PAK, ong 

Bace.....+...+.: Aug 10. i 87 

MGpOse........: Main menu of perc Management System 

for Republic of Korea Army Infantry Division 
@atled by......? 


* 

x 

* 

x 

* 
Modules called : PMNENU.prg,MANAGEFL.prg,TRANSACTION.prg - 
REFORTS.prg,ANALYSIS.prg a3 

Variales used..: * 
ublic.: MCI holds customer identification code * 

STOCKN holds stock number which identifies item * 

TODAY holds current system date 0: 

CHECK holds condition * 

ZULU holds zulu date which is converted * 

REQNO] holds request number which issued the last * 

VN1 holds voucher number issued the last * 

MIYPE holds type of transaction x 

VAR holds the value of variance * 

STD holds the value of standard deviation * 

MLEADT holds the value of leadtime of any item i 

* 


Eoeal. Z1IDAY ,ZZ2DAY ,Z3DAY 
LL AAA KRRRREKAKAARRRARRRA RAK RRR RERARARKARRRARRRARKKK AA 


A OF OF OOF OOF OF OOF OF OOF OF OF OF OF OF OF OF OO OO 


BM ss ee 8 es MOE nis 6 6 08 es Close all open files and clear all variables. 
CLEAR ALL 

SeesE ALL | 

RRM Mee g ess 5 co ces ee te eee eee ee ee ee eee Set working environment. 


Sel TALK OFF 
eee BELL OFF 
Se. HEADING OFF 
Sen HELP OFF 
SeeeeneNU OFF 
Sem cArETY OFF 
SET STATUS OFF 


* 
BEM 6 ss tw oe This sets up the CRASH iw titles wotehnemecords all ..... - 
BM. cso .....actions so that if the system crashes, the database....* 
ss ts 2 eo Gameee: hecheated. | 1hnis £1 le gwiitigee jeleted 1f........ as 
? SMES) ss ee Meerrelem system terminate NOrmaeel Vee. ts cs. 55 ese ect te ees 
kSET ALTE to CRASH eoeee#es ¢*¢ @@#@ 080808 @ @¢ @#¢ @080808808 @ @ #@ #@ @ © @ @# @@¢ @¢ &@ © ee el ehlUleOmhCUC hmhUc OCU OCU OCU OCU OCU OCUCUC OCLC 
BoE ALTE ON 

” Geena Define the puelic variables which can be used any module....* 
= PPE ROC SPC GST INC ts 6. cs oc tk we as eee as Steen te hte e eee wx 
Public MCI,STOCKN, CHECK, ZULU, REQNO1] ,VN1 ,MTYPE , VAR, STD ,MLEADT 

BUT. sisters. ss ss cee ...eRestore memorized variables from memory file.* 


Restore from MYFILE.mem 
Store space to an ZULUy May Fs 
STOCKN = BS oace \ 16 
CHECK = Se en 
eee. Create memory variable for today’s Gate..* 

robay': = date() 

Ee 6 ss sea taweia s. 0k s mere ere Convert current date into zulu date. .* 
a century on 
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ZDAY = DTOC (TODAY ) 
Store "1717 "+stlesen eee md a4 EOeZIUAY 
a2day = TODAY. - cto (21aa 
Store Sup ee ee 1Sseer(esoay Vpoperto .2eDou 
Store substr(Z3DAY,1,4) to ZUL 
Set century off 
DOFWreEe 
CLEAR 
DO PHMENU 
DO WHILE ce 
i=0 
DO WHILE i=0 
1=INKEY() 
@ 22,764 Sa! 
EP UPPER(CHR(i))$"012345" 


ENDIF 
1=0 
ENDDO 
@ 22,64 SAY Fee aoa ae 
IF .NOT. CHR Rico 5" 
EXIT 
ENDIF 
@ 24,38 GET today 
READ 
Set eae 
ZDAY = DTO (TODAY) 
Store Beh canbe: eee ay oa to Z1DAY 
2eday = TODAY - cto (2144 
Store Stee ee eae rod(Ziday}#1 73 jeaeo) CSDAY 
Store substr(Z3DAY,1,4) to ZULU 
Set century off 
@ 24,38 SAY today 
@ 24,53 SAY eZuED 
ENDDO 


DO CASE 


Case CHR(I) = '1' 
DO TRANSACT 


Case CHR(I) = '2' 
DO MANAGEFL 


Case CHR(I) = '3'! 
DO REPORTS 


Case CHR({I) = '4'! 
DO ANALYSIS 


Case CHR(I) = '0' 
Release All like M* 
Release TODAY,1,CHECK,STOCKN 
Save to MYFILE.mem 


SET TALK ON 
SEL SDELE Ol) 
SET HEADING ON 
Shiner soll 
Ser eMENUseN 
SEL SAFELY ON 
SEL STATUS ON 
CLEAR ALL 


EALeE 
OTHERWISE 
? chr 
ENDCASE 
DDO 

SE Genre Orr 

CEOSE AEE 

ERASE CRASH. txt 


CLOSE DATABASES 
CLEAR 
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were cnr rece tenn ne nen- oS KONE JENNI (os) 8S a 
b. PMMENU 
KAR KARA RK RK KKK RK KR RR RK RK KIRK RIK KK RK KARA KRKKERKE RAKE K KEKE RAR RAR RK RAR KKK 
Module name....: PMMENU.prg a 
Eienor.........: Park, Taeyong a 
Meee. ese set AUGHIO, 1967 * 
meemOSC......4. : Provide Menu screen for the PMAIN program a 
meeeted by......: PMAIN.prg a 
Meeaule Galled..: None 5 
Variable Used..: Today;holds current system date s 
KAAKAKKKKKRKARKKKKKRARRARKAEKKR EKA KEK RR RR ERK KER ERKKEKKKKRKKRKKKKK AK KK 
ime LO 3,69 
am lO 23,77 DOUBLE 
eps 10 12,37 
pee LO 7,20 DOUBLE 
6,5 SAY SPACE(15) 
gee 10 12,75 
Byee 10 7,59 DOUBLE 
6,43 SAY SPACE(16) 
yee lO 21,37 
Ps,2 10 15,20 DOUBLE 
14,5 SAY SPACE(15) 


tae4) JO 21,75 
iene2 TO 15,59 DOUBLE 
14,43 SAY SPACE(16) 
5,2 SAY CHR(176)+CHR(176) 
SAY CHR(176 

SAY CHR(176 

SAY CHR(176 

SAY CHR(176 

SAY CHR(176 

SAY CHR(176 

SAY CHR(176 

SAY CHR(176)+CHR(176) 
SAY CHR(176 

SAY CHR(176 

SAY CHR(176 

SAY CHR(176, 

SAY CHR(176 

SAY CHR(176 

SAY CHR(176 

SAY CHR(176, 

SAY REPLICATE(CHR(176) ,75) 
6 SAY CHR(176 

SAY CHR(176 

SAY CHR(176 

SAY CHR(176 

SAY CHR(176 

SAY CHR(176 

SAweenR(176 

SAY CHR(176 

SAY REPLICATE(CHR(176) ,17) 
12,76 SAY CHR(176 
SAY CHR(176 
10,76 SAY CHR(176 

SAY CHR(176 

SAY CHR(176 

SAY CHR(176 

SAY CHR(176 
SAY REPLICATE(CHR(176 
SAY REPLICATE(CHR(176 
SAY REPLICATE(CHR(176 
SAY REPLICATE(CHR(176 
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MDAPDDADDAD ADAM ADAD AVA ADD OY DDD ADD AVIA VD AI DAO AAI A AOAAAADAADAMD 
ieee 


Ss sdesae REPLICATE (CHR(I78) 
9,38 SAY REPLIGCATECCHR( 176 
0,38 SAY REPLICATE (GHK @igec 
ih, 38 Shy REEL GAYE CHR ve 
12,38 SAY REPLIGATE( GHA iio 
13,21 SAY REPLICATE CHR hve 
14,36 SAY REPEICATECGHh rc 
15,36 SAY SREPLIGARE GHbiai7Gc 
16,36 SAYSREPLIGATE( Gili, G 
17,38 SAY REPLICATE GCHR ic 
18,38 SAY REPLICATE(CHR(1 
19,38 SAY REPLICATE(CHR(1 
20,38 Sau BEET C ae 
21), 3505e0 REPLICATE (CHR(1 
oii SAY "Tl tmegees feeeno © 
6,6 SAY “lbs Transaction! 

6,44 SAY "2: Manage file "' 

14,6 SAY "3: Report " 

14,44 SAY "4: Analysis' 

8,44 SAY "Management er. files" 

9,45 SAY "Add 

10,45 SAY "Edit (delete, change)" 
11,45 say "Query on files" 

8 6 SAY "Routine transaction:" 

9,7 SAY Ute Gites aero mee slo a 

10,7 SAY "Receive item" 

ll,? SAY "Query chmerancaceion 
16,6 SAY "Report Generation:" 

ae SAY "Transaction status report" 
ele 

Loo 7 

20.7 


Moa nag e€ MM ceamc 5 Y S)tvesm 


SAY “SOCKOUCTPeoormtm 

SAY "Essential item stockout" 
SAY “OST ebepcrtye Fund Status. 
16,44 SAY "Analysis of" 

17,45 SAY "Reorder point" 

18,45 SAY "Lead time'! 

lo aeasay eeu seenee Objective"! 
20,45 SAY "Safety Level" 


24,29 SAY “Today sic s +" N+" (ZULU 
24,38 say TODAY 
24,53 SAY ZULU 


STORE "" TO SELECT 


@ 


22,63° GEL SEEBCGI Myre. o - 


RETURN 
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22,8 SAY VEnter Setection: (le-=47 a omce gangs ore or 0 to exit. 


ei ROUTINE TRANSACTION 
a. TRANSACTION MENU 


KEEKKAKAKKEKKKKKKKAKKARKERKAEKRKKRARKRRKKKKKAKKERRKKAAKKRKRKKEKKKKEKKREKKKKRKKKKAKKAKKR 


KHKEKRKKAKKKKKKAKKKKKKKR TRANSACT. PRG KREEKRKKKKKKKKKRRKRKRKRKK 
KKAKKAKAKKARKAAKKKAKKAKK AK AKA RR KR RAK RRR ARK RRA RAK KKK KERR RK RRR RRR RRR RK 
* Module name....: TRANSACT.prg * 
Seeeunor........,.3; Park, Taeyong x 
Bmp ate......0+-s-: Aug 20. 1987 * 
Bee irDose.......+3; Record all kind of transaction into the as 
* Batch,Master file. a 
Geeelled by...... : Bia eerg . 
* Modules called : TRBATCH.prg,TRCANCEL.prg,TRSTOCK.prg a 
x TRREOLST.prg, TRSTOKRD.prg, TRIURNIN.prg * 
* TRIUNLST.prg,TRTUNLC.prg x 
* Variales used..: x 
* Pub licwsfOCkN, MEYPE, MCUST, MCI, MREQONO n 
: Oe alle fexe mu ie ee eae PaOsi sii eet bE mlSCM, MCDESCI, a 
Ne eI EA AAARK RRR RRR IRR RAH 


DO WHILE .T. 
Mcil = Pacey, 


Mcdescl = 
Mcedesc2 = space 
Mreqno = space ( 


Mc12 = space 43 
Mtitle = Sy 
Mhost = space x 
Mcust = space(50 
Mtype = space(2) 
Mtypea = Seeeeice 
Stockn = space ie 
3 
16 


Mascm = "T" 

CLEAR 

Gees TO 3 55 double 
era 1 10 23.71 


6.3 TO Zigse 
pea lO 7.23 
6,5 SAY SPACE(23) 
Sade tO 12,75 
S47. Om. 09 
6,43 SAY SPACE(16) 
oie tO) 21,75 
is 42 70 15,59 
14,43 SAY SPACE(16) | 
Zee SAY "IT r ants ac € 1.0n Plow 2. ne! 
6,6 SAY " Type of transaction" 
6,44 SAY "Source” 
14,44 SAY "Information" 
S : 


8,6 SAY "1 : Request for issue to Div" 
pee ere 2 : Issue CO Customer from Div" 
wicca >s : Request for turn-in to Div” 
27 cme & : Receive from LSc™ 

iImvoesmy  ) 5: Request for stscsiie Loe Sal 
omemsAY " 6 + Request for turnsgn- co LSC" 
Meo sen 7: Cancel RE Co LSC* 

Menceonw. | o .)Gancel RD to Dav'! 

Zeno say 9 * puery on transaction" 

Gyee SAY Stock number : ' 

HOyaz sAy ” Cusine Ome teu. || 


NDDADADADAAVDAADADAADAADAADAAAOA am 


ET COLOR TO N/W 
8,56 SAY STOCKN PICT '9999-99~999-9999" 
16756 SAY MCI PICT "9999" 
Be eGcoLoOR TO 
erway SAveltoday 1S ss... 
16,60 SAY toda 
merieegawe(2uiy = "+zulut')" 
19,47 SAY "Last VN: "+vnl 


MAM@m Wma 


ie 


@ 20744 SAY “lastereqnom- "treqno: 
@ 22,12 SAY "Enter Selection from (1 = 9, or © to return). :" 


STORE 1OesEL 
¢ 22,99 (ot eSPe 


ee The following lines are for select Poop 7. 2a. eee ane 
i= 
DOT WHEE 1=0 
i=INKEY() 
@ 22,59 SAY "" 
IF UPPER (CHR(i))$"0123456789" 
@ 22,59 SAY CHR(I) 
Ext? 
ENDIF 
i=0 
ENDDO 
DO CASE 
Case CHR(I) = nae 
MTYPE = "IL" 
Mtitle "Receive newstock from LSC'! 
Mhost = nRecelve from :'! 
Mcust = "Send to =:" 


Mtypea = mtitle 

tei Zz = Sseo™ 

@ 8, 56 GET Stockn pict "9999-99-999=99939)! 
@ 10,56 SAY Mci2 pict "XXXxX" 


Read. 


@8, 56 SAY Stockn 
@ 10,56 SAY Mci2 


DO ERS TOEK 
Case CHR(I) = '3'! 
MEVERG=soa 2Du 
mtitle "Request for turn- a 
mhost = "Request from : 
mcust = " Send to : | 


mtypea = mtitle 

MGlZ = loo 

@ §, 56 GET Stockn picie 3999 -ses3 39s e 
@ 10,56 GET Neil pier nae 


Read 


@ 8, 56 SAY Stockn 
@ 10,56 SAY Mcil 
DO TRIURNIN 


Case CHR(I) = 
MTYPE = 
HeiZ2 = 


mie 
WRp! 


il Soo"! 


@ 8, 56 GET Stockn pict "9999-99-999-9999" 
@ 10,56 GET Mcil picua 


Read 


@g, 56 SAY Stockn 
@ 10,56 SAY Mcil 
DO TRSTOKRD 


Case CHR(I) = 
MTYPE = 


1?! 
NTH! 


@ 8, 56 SAY "XXXX-KX-XXX-XXXK" 
@ 10,56 SAY "XXXxX" 


DO TRBATCH 
Case CHR(I) = '5! 
MEYPE. = REY 
Clear 
@ 10,10 towigGs 
@ 12,15 SAY "Your selection (RL) must be resulted from other” 
@ 13,15 Say " type of transaction. It means this module "' 
@ 14,13 Say "is conducted automatically. However you may" 
@ 15,15 Say " continvew cit ceeee yeu Ee ian want to do! 
@ 17,15 Say "Do you want to continue(Y/N) : 
See picts 
ea 
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If CHECK= "Y" 
DO TRREQLST 


Baca 
Loop 


Case CHR(TI) 
ORE 
Cre oc 
@ 10,56 
Read 
@ 8, 56 
@ 10,56 


| { 

ome 

Geeoeoatn Pict | 9999-99-999-9999" 
GE ewe pice “XXxXxX"' 


SAY Stockn 
Sa ed) 


Do TRCANCEL 


Case CHR(I) = 
MTYPE = 
@8, 56 
@ 10,56 
Read 
@8, 56 
@ 10,56 


1 ! 

ae 

Sem seca pict "9999—-79-399-9999" 
Speci eeplLee  AAAK! 


SAY Stockn 
SAYSTeal 


Do TURNTOLC 


Case CHR(I) = 
HTYPE = 


Case CHR(I)= 


1g! 
Nnep" 
1g! 


MTYPE="QUERY" 
Dor Tracking 


BASE f=27 5.08. CHR(I) = '0' 
een 7 ) 
CLEAR 
EET 
ENDCASE 
ENDDO 
RETURN 
ee at (Bre pe ger lel Yeh ajeyete] “I = = Er 


b. TRSTOCKRD 


KEEKKKEKKEKKKEKKKEKKKEKEKKEKKKEKKEKEKRKKEKKKKKEKEKERKREEKREKEREREKEKKRKKREKEKRRREKKKER 
KRREKKEKKKKRKKRKKRKKKKEEKHK TRSTOCKRD.PRG KREEKEKKKEEKKRKKEKEKKKEKEKKKEKKEKHK 
KRRAEKKKKEKKKKKKEKKKEKRKKKRKEKKRKKKKEKRKRKKRKEKRKKKKKKKRKEKRKKEKEKKREEKRRKRKEKKEKEKKEKEKHK 


* Module name....: TRSTOKRD.prg 

BeeeeMOr........-3 Park, Taeyong 

Meas. .........-: Aug 28. 1987 a, 
Bervunpose........: Record request £45 issue transaction from 
* customer into batch file. 

ewealled by.....0 TRANSACTION.prg 

* Modules called : 

* Variales used..: 

* Pune, 

i Moca... : 


RAEAEKKKKKKKEKAEKKEKREKREKRKEKRKKRKRKRKRKRKKRRRKRRKRRKRKRRAKEKKKRKKRKKRKKRKRRKKRKKRKRKR KK RRR KKKKKKER 


Select A 


Use BATCH index SNCIBAT,CIBAT 


Select B 


Use PROPERTY index SNPROPER 


semect C. 
Use ASL index INASL 
Select D 


Use CUSTOMER index CICUST 


Select B 
Store "X" to batcheck,checks 
Xcheck = .T. 
Do while Xcheck 
Clear 


2 


* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


@ 10,15 Couleyes 

@i11,17 Say " Customer Code : " Get Tema ae es 7) 

@ el say " Stock Number ;: " Get Stockn piety 9999-99-999-99 
Rea 

If Mcil =" " .OR. stockn="_ " 


Seek mcil 
If .NOl. foune® 
@i11.16 clear to 13,764 
@11,17 Say "Not found "tMcil+t” code @iadceamers |! 
@ 13, lv isay vo you want to add this as customer?(Y/N) "; 
Get checks pera. 
Read 
If checkse= 7" 
Nei=Mew 
Do addcust 
Store cdesc to Mcdescl 
Loop 
Else 
Op 


_ Lo 
EBneuc 
Else 


Store cdesc to Mcdescl 


Select B 
StockN = UPR eS eee 
Seek Stock 
Tf .NOi we tound©® 
Clear 
Stone: WA to EheeKs 
@ 13,10 say stockn + " is Not found in yon Proeeaa book" 
@15,20 Say " Is this the INITIAL demand ? " get checks 


Epeek Heats) 
checks = upper(checks 
Tesenecks Ee 
Store 0 to Mcost 
Else 
Clear 
@15, 20 say "Check stock number and try again !" 
Walt 
Loop 
Endif 


Else . 
 Meost —suntecuse 
Endive 
Bric if 


Select A 
Append Blank. 
Replace CI with MCI1, Type with Mtype, SN with StockN Mise witg mae 
Replace Unitcost with Mcost, Date with today, Reqno with Mreqno 
Do while .T. 
Set format to batch 
Read 
If batcheck = "y"! 
Set. LOrmat cose 
Replace REQNO with mreqno 
Stockn = space(16) 
EB XAG 
Endl 
Enddo 


Enddo 
Close Databases 
Release all 
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c. TRBATCH 


KAARAKKKRAKERKAAKAKKAKRKRKKE RAR KAKA AK KAR KARA RAKE KAR KAA KAR KAKKARAR RRR KR RR 


KKAKKKKKKKAKKRK AA KA KK TRBATCH.PRG RAEKEKKAKAAKKAKKERKKKAKKKRAKAR 
Pete KHAKI KK IKK ARKH AKA KK RRR KR ERR KK RAKKR KR AK AKA KAKA KKAKARKRKEKKA KARR RK 
* Module name....: TRBATCH. prg * 
Bee nOY..... »e..: Park,Tae x 
BMPS. we et oe : Aug Zee 38 : 
* Purpose........: This is the module for performing the x 
x BATCH file which contains the records * 
x of routine transactions x 
pmealled by......: SoS ees prg ‘ 
* Modules called : ISSUE. Bee * 
* Databases used.: MASTER,PROPERTY,ASL,BATCH, TEMPBAT x 
* Variales used..: * 
* Public.: REONOL], ZULU k 
. Boca! .: Me Y holds unit quatity of a given stock item. a 
* MIOTAL holds total amount of item which is written * 
as on the report so far. * 
* MUNITC holds unit price of a given item. Zs 
as STOCKN holds stock number * 
LINECTR holds the number of the aoae PaGEED so far* 
x N holds how many iteration has ha x 
RAEKAKKKAKKAKKRAKKAKAKEKKRAKKRKKAKKRKKKEKKARARRKAKAKKKE Ee ee ae 
Select A 

Use MASTER index SCTMAST 

Bemect B 

Use PROPERTY index SNPROPER 

wenect C 

Use ASL index INASL 

pemect B . 

Set relation to SN into C 

pemect A 

Set relation to SN into B 

Select E 


Use Batch index SNCIBAT,CIBAT 

meeeecreate a temporary file for stock number and type of transaction.” 
: meeris Same aS given condition............ Eee rT oe ors) ore 4 Coe: doin a 0 x 
Total on SN to TEMPBAT for TYPE="RD" 
Use TEMPBAT 
Go top 


eats nothing has happened the day, give information and return..... - 
Oo 
@10,14 Clear to 14,65 
@ 10,14 to 14,65 
@ 11,17 Say "Your Batch file is empty -> Go and take rest !" 
@ 13,19 Say "Press Any key to go main menu" 
Wait lot 
Release all 
Close databases 
Erase TEMPBAT.dbf 
Return 
Breit 


Index on SN to TEMPBAT 
Use TEMPBAT index TEMPBAT 
Set relation to SN into PROPERTY 
Store "X" to mprint,checks 
Store 1 to PAGECTR, LINECTR, N 
ore OFsEO TOTAL ,MTOTAL,Z 
Go top 
Do while .NOT. Eof() 
Clear 
@10,14 clear to 14,65 
@10,14 to 14,65 
@ 11,27 say "Wait while it is cession " 
Store SNetG ss LOCKN 
store O1Y to NQODY 


OF 


store B=>nn <ogiuma 

SCOnG B= unite eomiermac 

Store B=-unlecostaroclii The 
Store B->ONHAND to MONHAND 
Store MONHAND - NQTY to XONHAND 
ie XONHAND <7 C= >ROF 


serene a -.... Check whether the master file already has an order 
PM ieiktrnnvasa dee of the item or not, if yes, check the amountueoomena 
7 o/s Geena eee can do action necessary. 


Select A 
Seek STOGKN +.) LOCCRL. 
If found()) AND. .NOv res lee 
, Store QTY + XONHAND to MONHAND 
E 


se 

Store XONHAND to MONHAND 
Endif 
Select E 


Endif 
If MONHAND < C->ROP 
Tf Mprineeeen 
Domiwinile 7. 
@ 10,14 clear to 14,65 
@ 10,14 to 14,65 | | 
Q ped say "Ready printer? “get siPRiNni pact sue 
Rea 


*,Set printer ready to print out, and console O@8esama ae 
Datei a. keener: can be being conducted without disturbance. 
Pe mpt inte 
ec Prine on mas 
@ 13,20 Say “Wait while Orintingie. ee 
Set Consolenorr 
Exit 
Endif 
Enddo 
Endif 
If LINECTR=40*(N-1)+ 1 
Lf LINECT Resa 
Store Val(Substr(REQNO1,8,4)) to MREQNO 
MREONO = 100000+MREQNO+1 
REQNO1= "15000M"+"="4+substr(str(MREQNO) ,7,4)+"=-"+ZULU 


Endif 
Sani 
5 \ 1 
B | I 
ae REQUEST FOR ISSUE! 
ae Page ' + str (pagectr,2) 
ae Date : '+Dtoc(date()) 
2 ' To : The 3333 Logistics Suppore Command + Megeccr 
? ' From : The 150 Infantry Division ' 
7 | . Request No : '+Reqnol 
? 
? ' No Stock number Description 
ge \Uhaistis Quantity Price Total' 
Store pagectr + 1 to pagectr 
Enais 
Store (C->RO)-MONHAND to Beat 
Store MQTY * MUNITC to MTOTAL 
store TOTAL + MVOlaly to eran 
weOnee PINe cer touc 
? Str(Z,4)+' '+snt+' '+rtrim(mnm)+space(15 - LEN(rtrim(mnm) ) ) 


7? ' "+ munitt+" ‘estr(m@ty)4s er (mune 
22 Str (muna te maty) 
linectr = linectr + 1 


ee Record the action on the master file. 
Select A 


Append Blank 
Replace SN with Stockh Cr witha age. 
Replace Reqno with reqnol,Qty with MQty,Type with "RL" 


98 


RepldcemUnittcost with munite,Mise with .T.,Date with today 
Replace Posted with .F. 


eclectic 
Te linectr=40*N + 1 
aoe 
> 1 i 
> | 
? 'Material Management NCO : ss 




















?? 'Date : / 
? 'Material Management Officer : 
?? ‘Date 7 y . 
E JeCr 
N=N +1 
Endif 
Belt 
Berect £ 
Skip 
Enddo . 
8 6 8 50 6 66/5 6 NCR NCR Onan rar arec are arrears Print only when heading printed 
ht linectr Sal | 
a 
> ee ee 
| Grand Total 26' + str(total) 
> . 
? '‘Matrial Management NCO : 
2? ' Date : ) 
> 1 
? 'Material Management Officer : : 
?? ' Date : 
Eject 
Endi 
If MPRINT ="y" | 
asres so ceeeeetene =>: ».. Reset printer off and console on so that make it 
Sa cine possible to communicate with the user. 
Set print off 
moc: console on 
Endi 
IS) 5 2c ec. + 8 0 0s are ate Erase the temporary file which is no more useable. 
Close databases 
Erase pelpeaee dot 
Boe bRISSU 
Release all 
Close databases 
Return 
Kamm wwece weer were ec eseeee Bo er Ol lll = 
d. TRISSUE 
KAKKKKKKKKKKKKKKKKKKKKKKERER KARR KKK KKK AK ARK AKA KKK RAKKKRAKK AK RARER KAA RAK 
KKKKKKKKKKKKKKKKK AK TRISSUE.PRG KAKKKKKKKKKKKKKKKKKKKKERKKRKE 
KAKAKAAKKKAKKKKKKKKKKRKAKK KEKE RK KEKKAKKKAKKKK KK KKKKKKKKKAKKKKKARKKAKK AK RK 
* Module name....: TRISSUE.prg . 
GeaeenOr.........: Park, Taeyong x 
MO ECr +6 1? Sept. 2. 1987: . ‘ 
x Purpose........: This is the issue module for generating a 
* Receipt to the customer correspondinig - 
x to request for issue. x 
* Called by......: Batch.prg = 
* Modules called : none x 
* Variales used..: Z 
* Pub eicees Vile, * 
* Local..: Total,Mtotal,Z,Mexpend,Mfundoh x 
* Databases used.: MASTER, PROPERTY ,CUSTOMER , BATCH ,STOCKOUT x 
KAKKKKKKKKAKREKERKKKKKKKKKRKEKEKKRKERERKKKEK EKA RK RAK RR KKK KKRKEKRKRKEKKKKKKKKKK 


he 


Se Lee tan 

Use MASTER index SCTMAST 
Select B 

Use PROPERTY index SNPROPER 
Select C 

Use STOCKOUT index STOCKOUT 
Select D 

Use CUSTOMER index CICUST 
se lecures 

Set relation to SN into B 
selects uaa 

Use BATCH index CIBAT,SNCIBAT 
Set relation to SN into B 


li bone 
Clear 
@15,25 SAY "Lucky today! Go and take a rest"! 
2 Cre (7) 
x=0 
Do while x<35 
A=Xt+1 
Enddo 
Close databases 
Return 
Egil ie 
store 'X" to Mera 
DO Whtlew. 
@10,14 clear to 14,65 
@ 10,14 to 14365 
@ shee Say 'Ready Printer ? ' Get mpprateoiet ||! 
Rea 
@ 11,42 Say mprint 
LE Mp ree 
et print on en 
GJS ezZoeSay “Print ineaiasad 
Set console off 
Store 0 to total,mtotal,Z,Mfundoh,Mexpend 
Store lator pagectr 1 ineecrnn)| 
Erte 
Else 
Clear 
Set color to N/W . 
@13, 20 Say "You Pressed "+mprint 
De tmeolon eto eg 
: ae 20 Say "Do you want to finish the job(Y/N)?" Get check 
ea 
lf veneck =. ty! 
close databases 


Return 
BESse 
Store "xX Co Nerane 
Loo 
Endif 
Enda 
Enddo 
Go to 


p 
Do while .NOT. eof() 
Lf deteree 
Sip 
Loop 
Endi i 
Stone eL tounex 
Select D 
Seek mci 
Store Expend to Mexpend 
Store Fundoh to Mfundoh 
Store cdesc to mcdescl 
Seleecue ’ 
Do while Type="RD" .AND. ci = mci 
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If delete() 
Ski 


Loop 
Endif 
store type to Meee 
Store b->unitcost to mcost 
Store b->onhand to fonhand 
Seore ary to adiee 
store fonhand-Egty to fonhand 
store regqno to mreqno 
SLOres sh eo stoekn 
If linectr=40*(N-1)41l 
Reebinectr = 4 
Store Val(Substr(vnl,8,4)) to Mvn 
Mvn=1000004+Mvn+1 
Vol="1S000i + ="*Substristioivny ,7,4)+"="+2ulu 
Endast 
ei | ! 
t 
! 


rSssue List” 
Page "s+ Str (pagecer , 2) 


Date : '+Dtoc(date()) 


*N 


Beom =: ‘+o! The 150 Intanry Division 
To : '+ mcdescl 


x) ev) *~) "J ov) *WJ *~) *) *\) “J *\) * 
“NJ 


NJ 


Vocher No:'+¢vnl 


“NJ 


? 'No Stock number Description! 
ae Onhand Unit Quant y Price Total! 
store pagectr + 1 to pagectr 
pnait 
If fonhand < 0 
oe Ver) 
clear 


@ 15,20 Say "You have stockout item "+stockn 
@ 17,20 Say "This will be added to stockout file" 
num = 0 
Do while num<30 
num=num+1 
Enddo 
SEOne ernec ca LOZ 
gece co) font’ 'trtrim(>->nm) space 15 -LEN( rtrim(b->nm) )) 
ee ern Delay delivery: 
Linectr=linectr+l 
Select C 
Append Blank oe 
Replace sn with stockn,ci with mci,reqno with mreqno 
Replace ay with eqty,unitcost with mcost 
Replace outdate with today,posted with .F.,Type with mtype 
Select E 
Delete 
Loop 
Endaif 
If fonhand >=0 
SeegemLinectr eto Z . 
Bochum '+Snt elartrim@b=onm)+space( ls “LEN(rtrim( b->nm) )) 
foe ts tr Desonband)+ ait ba ound t 
ae HC Silent SLES 5) 8 has I eel 
linectr = damect retel 
Store b->unitcost*qty to mtotal 
Store totaltmtotal to total 
Select A 
Append blank. as . 
Replace sn with stockn,c1 with mci,vn with vnl,; 
reqno with Mae Fe eyee with mtype 
Replace qty with eg 
Replace unitcost with mcost,Misc with .T.; 
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Date with today,Posted with .T. 

Select B 

acer stockn . 

Replace onhand with fonhand,tvalue with fonhand*unitcost 
select E 


re linectr=40*N+1 
? 


7° 1 1 

> = . 

cae Grand Total '+ str(total) 

? ! 

5 ' { 

> 1 

? 'Material Management NCO : 








cf Dace. / 
? 'Material Management Officer : 
oC Da come 7 i 
EVeee 
N=N+4+1 
Ende 
Enddo 
ie linectr>1 ~AND. .NOT. linectr=40Nt1 | 
? 
acne’ 
2 | a. arn 
eau Grand Total , 5 Uenesea roca.) 


el 

>| ! 

? 'Matrial Management NCO : 
eae Dates =o / a : 








? 'Material Management Officer : _ ———C( 
2? ' Date : 
Store 1 to pagectr,linectr,N 
store 0 temeoca Wimeerar 
Ecce 
Endi 
Select D 
Seekemet 
Replace Fundoh with Mfundoh-mtotal 
Replace Expend with Mexpendtmtotal 
select E 
Enddo 
Select E 
Pack 
Store space(4) to mci 
Release sau 
Set Deinitress 
set console on 


a * EoOf TRISSUB-ptQ %=3~ 3-99 =e 
e. TRREQLST 

FRI IR II KR IK IK II II IK I I IR I IR IR IIR I AI IR I IR TOI FRI FI I RI I I A 
KRREEKKKKKRAKKKKKKAKAKKKRAKKK TRREQLST.PRG KKAEKKRKKKRKRKRKRKRKKRKRKRKRRKRKRRKRKRKRRKRE 
FIR KR IK IK KR RI RIK IK I IK ER RI III I I I I I TOK II II III I I RK I RK 
* Module name....: TRReqlst.prg Zs 
* Author.........3 Pagk, Taevond % 
* Date. eoeeeeeeee?0 86 > SeDE oy l 87 , * 
x Purpose........: This 15 the Transaction mocumesrcimequast A 
. for issue to the higher logistics command a 
. in force. a 
x Called by... ihansaecerund z 
* Modules called : None x 
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RAEKKKKKRKKRKKKKKRKKRKRKRKRKRKKKKRKKRK RRR KKKKKKRKKKKR RRR KKK KRKKKKRKKRREKRKKRKKRKRAEKE 


Select A 

Use MASTER index SCTMAST 
Select B 

Use PROPERTY index SNPROPER 
Select D 

Use CUSTOMER index CICUST 


Select A 

Seore 'X" to CHECK 

eeere © to MOTY,TOTAL,MIOTAL 

Store Val(Substr(reqnol,8,4)) to Mreqno 

Mregno = 100000+Mregnotl 

Reqnol= "1500QM"+"-"+substr(str(Mreqno),7,4)+"-"+zulu 


Ho While .T. 
Clear 
@ 10,15 to 14,65 
Plo tjecay " Customer Code : " Get McilPice ''9999" 
Gas ,17 Say "' SPOcmNUNIeh “al Gee StOchn pace t «9999-99-999-9999" 
@ 15,25 Say "Leave blank any space to exit.'" 
Read 
select D 
Seek mcil 
po Case 
Case Mcil = " L 


Exit 
Case .NOT. found() 
@oll,16 clear to 13,64 . 
Ceilimody soe round. 'tMeile codesicustomer | 
@ 13,17 Say "Do you want to add this as customer?(Y/N) "; 
Get check pict "!" 


Read 
Tf check = '"Y" 
Do addcust 


Store "XK" to CHECK 
Store cdesc to Mcdescl 
Else 


Case Found() 
Store cdesc to Mcdescl 


EndCase 
Select B 
StockN = Bee ee ey 
Seek Stoc 
Do case 
Case stockN = " " 
Exc 
Case .NOT. found() 
Clear 


@ 13,10 say stockn + " is Not found in your property book" 
@ 15,20 Say "Is this the INITIAL demand? " GET CHECK Pict "!" 
Read 
Lt check w= vy" 
store 0 to Meost 
Seem nk  COmenecK 
Else 
Gredn 
@ 15, 20 say "Check stock number and try again !" 
Ec 


Wal 


Endif 
Case found() 
Store UNILTGosl to MCOST 
Store ONHAND to MONHAND 
Store NM to MNM 
Store UNIT to MUNIT 
Endcase 
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Select A 
Append Blank 


Replace CI. with MCI1, Type with Mtype, SN with StockN,Mise with .T. 


Replace Uniteoce with Mcost, Date with today, Reqno with Reqnol 
Do we ls 
Clear 


C27) 2) SsAy es Request oo Issue" 
Gime 430 Savi ioday 16. 
@ 3, 56 “Say eloday 
@ 5, Jesse “To: '+omedescel 
@ 6, 7 SAY  weromn-. thes s00 Infantry Davisaon- 
@ 8.) 6 5cee ie pe of transaction : 
@ 9, 6 SAY equest for Issue(RL)'" 
@ 9, 34 “Sar MESSE Number :" 
@ 9, 50 GET REQNO1] PICTURE "9999!!-9999-9999" 
@ 12, 19° 3Sav “"Stoeiinbens! 
@12, 32 GET MASTER->SN PICTURE '9999-99-999-9999"! 
@ 14,195 (Say "Weseripeiony.. 
@14, 32> GET. Hie 
@16, 34 SAY "Unit :" 
G16, 4 GET MUNIT FUNCTION "tAAA" PICTURE "XXXX" 
@1s, 19 SAY "OUantity 
Glee 32." Gel PC ree ret 199999" 
@ 18, 50: SAY "'Reuisableze- = 
@18, 62 GET MASTER- (aes 
@ 20, 19 SAY " Prices a. 
@ 2 32 “GET Meese PICT '999999.99" 
@ 23, 30 SAY "Is this record correct ? " GET CHECK pict (um 
@ 4, 4 TO 21, 71 
Gol ic, “te 3, 40 
@ «7 ‘5. “TORR aea© 
Gi kG ).25° EG. Ome oO 
G 837382" TOM sesz 
Read 
Lf GHEGK = ly" 
Replace OTY With Mqty 
Store "A PECeeHECK 
Ear 
Endif 
Enddo 


@ 10,12 clear to 14,63 
@10,12 to 14,63 
@ Le 23 say "Ready printer? "' GET CHECK pict "!" 
Rea 
If check = "y"'! 
aa aoa on 


20 eae ieee pone DEINCINGs.4 . cee if 
Seaee EX eNO 
‘_ conscile off 
Eiering 
Store Oke GeC te ea 
Store 5 s al,mtotal,Z 
Lt ae a 
> i ' 
> 
a oa REQUEST FOR @asuE. 
2?! , Page ' + str(pagectr,2) 
? 
a TO st eMeeeser Mes. 
? ' From =: Tne [s0™intantt 2 1sione 
ce Request No : '+Reqnol 
> | 
2? ' No Stock number Description 
erat Quantity price Tota, 
Endif 


Store (Mqty*Mcost) to Mtotal 

Store linectr some 

? Str(Z,4)+' '+snt''+rtrim(Mnm)+space(15 - LEN(rtrim(Mnm) ) ) 
o7  ) '+ Munre+" = Sstrimgqty ) a stmuleoce 
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?? rece aty 
Store Linectr+ o linectr 
swore Mcost“qty to mtotal 
store total+mtotal to total 
ems, 10 Clear to 17,65 
Geils, 10 to 17,65 
¢ Pe 15 Say "Do you have more to request(Y/N)? " Get Check Pict "!" 
ea 
be Check="y" 
Score. Ux FocCHECK 
Bice ve seo. lige 
Sore Sea tov stockn 
Ena 
? I j 
2? I I 
? I I 
ee Grand Total °$' + str(total) 
> 4 I 
? 'Matrial Management NCO : 
so Date ; i = 
? 'Material Management Officer : ; 
we’ Date : 
Eject 
Store space(16) to Stockn 
Enddo 
Clear 
pee print off 
Set console on 
Close databases 
Release all 

















Return 

wooo neo ----------------- * Eof TRREQLST.prg *-------------------------% 

f. TRSTOCK 

KREEREKRKEKRKKEKKERKRKKKRKKRRKRRRKRKRKEKRKRRRRKEKRRRREREKRRKR RRR RRR RRR RRR RK KKK RRKKERKK 
KKEKKKKKKKKKKKAKRKK RAK K TRSTOCK.PRG KKKKKKKKKKKKKKKKKKKKKAK KKK KR 
KREKKEKRKKRKKE KKK RK KRKKKKKRKRKRKRRKKEKRKRKRKKRKR KR KRRKRKRKRKRKERKERKEKRRKRKKRKR KKK KRRKRKKRKRRKRERKKKEK 
Berocule name....:; TRSTOCK .prg x 
Mme lcnOr.........3 Park, Taeyong * 
Bevate..... veeeeet AUG 18. 1987 | | x 
* Purpose........: Record item received from higher command . 
z on the master file. If needed add to the z 
- ASL or PROPERTY file * 
Becalled by.. : TRANSACT.prg 3 
* Modules called : None - 
* Variales used. as 
= Public.: Vnl x 
- Local. Docheck,check, fcheck,Dcheck, UAEY S) smqtys.. * 
* Databases used.: MASTER, PROPERTY ,ASL, CUSTOME * 
* Databases used, ; MASTER PROPERTY ASL CUSTOMER a caeaauaanaanar 
Select A 

Use Master INDEX SCTMAST 

Select B 

Use PROPERTY index SNPROPER 

Bewect C 

Use ASL index INASL 

Select D 


Use CUSTOMER index CICUST 

seore 1 to M 

Store "XX" to check, fcheck,dcheck 

store 0 to mq aLYS ; sm SA maty »miqty,Tqty 
Store Val(Substr(Vn o mvn 

mvnl = eae Ee 
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Vnl = "15000M-"+Substr(str(mvnl),7,4)+"-"+Zulu 
Dochecke =a. 
Do while DOCHECK 
Creat 
x, cescneck Your Customer, or ada jim 
Do while .T. 
@ 10,15 to 14,65 ae 
@ 11,17 Say " Customer Code ; " get mer iplci a 
@ 13,17 Say " Stock Number: " get Steen pice, 
'9999-99-999-9999"' . 
Q ee Say "Leave BLANK stock number to exit" 
Rea 
Seek mcil 
Tf found@ 
Medescl 
Mcdesc2 
Exit 
Else 
@Q@ ll l6tevearetorls 64 
@ 11,21 Say "Not found "4+me1l+" codescustaner|| 
@ 13,21 Say "Do you want to add the customer? " get; 
Check prema. 
Read 
Lf checke= ve 
mcl = mcil 
Do addcust 
Store cdesc to mcdescl 
Endif 
Endif 


cdesc — 
"The 150 Infantry Diviszon" 


ues Check the new item initial or requested one. 
Select B 
StockN = UP Re Ee Stoe SY 
Seek Stock 
Do case 
Case StockN = '! “ 
Docheck = .F. 
Loop 
Case .NOT. found() 
@ 10,15 to 14,65 | 
@ li,2i say 7 Not, foundmangy cur, propeasy book" 
@ 13,21 say " Is this EhesiNETIAL supply? 2 cer 
Checko pile tee: 
Read 
Epacheck = ye 
Append blank 
Replace SN with StockN,DAIE with Today 
Store 0 to unitcost,onhand 
set format Lage hor 
Read 


Lf feheck = "y" 


See Olan 2 Mee 
Store unitcost to mcost 
Store onhand to monhand 
: oon TVALUE with (mcost*monhand) 
ndi 


@ 10,15 clear to 14765 

@ 10,15 to 14,65 

@ 12,17 Say "ts This “stocker 
3 poe item? " get check pict "!" 
ea 


hi cheeme= "y" 


select C 
Seek stockN 
if founaw 
@ 11,14 clear to 13,64 
@ 11,17 say SN+" is Already exist!" 
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Gispliysay | Domvou wanketo ; 
change?" get check Pict “!" 
Read 
itecheek =<" 
Replace SN with Stockn 
Replace Date with Date() 


Doewhile a1. 
Setstormateto ASL 
Read 
dcheck= upper (dcheck) 
IF dcheck = "Y'' 

ie Ose .eonmd t 


Else 
Append blank 
Replace SN with StockN 
Replace date with date() 


Do while .T. 
Set format to ASL 
Read 
biedeneck = "y" 


@ 10,15 clear to 14,65 

GQolOnms sto 14755" = 

@12,25 Say "You did good job. Now try gore 
Ce coy Presse uaeco Continwe " get ; 
check Pict "1!" 

Read 

If check = "y" 


Else 
Galo, 1 Sweiearsto 12,65 
GeO Stoel. 65 . 
@ 11,25 Say "Sorry no way to go, Try again! " 


@13,25 Say " Press Y| to continue " get ; 
Check@piret 7!" 
Read 
Loop 
Binet 


Case found() 
mcost = unitcost 
monhand = onhand 
Endcase 
Select A 
Seouemorocknit 1500"+"RL" to mstockn 
Sum QTY for SN=stockn .AND. type="RL" .AND. .NOT. posted to Tqty 
Seoveman. Co ZCheck 
Do while .T. 
Append Blank. 
Réeeliace Cl awith MCI1, Type with Hiyee 
Replace SN with StockN,qty with Tqty 
Replace Unitcost with Mcost 
Replace Date with today,misc with .T.,posted with .T. 
Replace vn with vnl 
Set format to mast 
Read 
zcheck = upper(zcheck) 


Ti zeneck = "y" 
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Close format 
SCOre Oly toellvemn 
SEOne Tigty sto 1077 
EXC 
Enaat 
Enddo 
Go top 
Seek mstockn . 
ee If requested item, post it 
If found( ) 
Do while .NOT. Eof() .AND. type="RL" .AND. SN=STOCKN 
If posted 
skip 
loop 
Endif 
SUOne. RECO ee BES 
store DATE to MDAT 
Store UNITEOslT ete Micosm 
Store Olyeroweor, 
Deoneace 


Case MiGtyaeoly <0 . 
Replace vn with cere WD. Use 
Replace eae Wiehe Mio ly 
Append Blank. 

Replace sn with stockn 

Replace reqno with mreqno 

Replace date with mdate 

Replace unitcost with mlcost 

Replace qty With cqcyemige, 

Replace posted wiciians . 
Replace ci with "1500" ,type wath "RL" 
Replace mis¢ with -T. 


Exe 
Case ie ty cat us . 
Replace vn with Vol poaueg Wolter. Ls 


Stone MIQGTY-COTY to Mion 
Cron 2 =0 
ieee 
Endif 
Endcase 
Skip 
Enddo 
Select B 


Seek STOCKN 
Replace ONHAND with MONHAND+MQTY 
: ano TVALUE with (MONHAND+MQTY ) *MCOST 
ndi 
x. .Check If 1t=a °stoeckoutumcr1) Maren: 
Selecter 
Use STOCKOUT index STOCKOUT 
Set relation to sn into property 
Seek stockn 
If Bolt) .eR- Boy 
Stockn = space(16é) 
Select D 


store 'X' to mprint 
Do whiskey.) 
@ 10,15 clear to 14,65 
@ 10,15 to 14,65 
@ 11,17 Say " You have a delayed deo eee 
S Poa Say 'Ready Printer ? Geeenpylaeepice st. 
ea 
Tf Mprint =) 
eC prineron 


@ 13,17 Say “Perm eing osc0:c5.1 ee 
set console off 
Exh 
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Endif 
Enddo_ 
Do while .NOT. Eof() .AND. SN=STOCKN 
Li EOStED 
skip 
loop 
Endif 
store REQNO to MREQNO 
Seore Ch to MCI 
store OUTDATE to MDATE 


Select D 

Seek MCI 

Store cdesc to mcdescl 

Select F 

ae il | 

5 

> I 
' ISSUE LIST' 

- Page :1! 

| From ote eal oCmrnLanty Divi fone 


Date : '+DTOC(date()) 


: To : '+ mcdescl | 


FN) ONUIEGN) ROY ON) ON) UT ON) OGY 
"J 


eo! Request Number : '+mreqno 
ZNO Stock number Description 
?? ' Onhand Unit Quantity price 


ge * Total! 

este ae ther im D=>nm)) 

?? spares - LEN(rtrim(b->nm) )) 
?? §s Tea cert '+ b->unit 


ose Gle vat str(b->unitcost +str(b->unitcost*aqty) 
Store D-PUlmecost™“aqty to tota 

> ' 

> | 

rr Sono CoCo OoO OOOO oOoOOoOoO ooo oOoCooOoOoCoC I 
ae 

Gon. Grand Total :$' 


2? str(total) 
? 


Dee 


? 2 Matrial Management NCO :! | 
?? 


ae ' Date : 


? | | 
? ‘Material Management Officer :' 
oo 


2? ' Date : / / 
Eject ; 

Store qty to mqtys 

Replace posted with .T. 
Replace refilldate with Today 


select D 

Seek mc1 

Replace expend with expend-total 
Store expend to mexpend 

Replace fundoh with fundoh-mexpend 


Belect B 
Replace onhand with monhand -mqtys 
Replace tvalue with (monhand-mqtys)*mcost 


selece A 

Append blank. . | 
ReplacesoN with STOCKN, Cl witheye@he OTYswreheMOTYS TYPE with "RD" 
Replace REQNO with MREQNO, UNITFCOST with MCOST, POSTED with .T. 
Replace DATE with MDATE, MISC with .T., VN with VN1 


BeLeGce & 
Skip 
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Enddo 
Set print off 
Set console on 
Stockn = space(16) 
Select D 

Enddo 

Close databases 

Clear 


g. TRTURN-IN 


KAAKKRKEKKKRREKRKKEKRKEKKEKRKRKKKEKRKREKKRKEKRERERERRRKRKRKKKRERKKRREKRREKRREKREAKRRAKREKKKKRAEKRKK 


KAKKKKKAKKKAKKAKKKK TRTURNIN. PRG KR RK ARR RRR RRR KR RK RK RK RR RR KK A 
Te AA A RR I I I I I RRR RR RF RI RR I I I FAA A A RR RR I A a 
x Program..: JUrn=In pug - 
x Author...: PARK, Taeyong * 
* Date.....: Sept 2, 1987 * 
x Notes....: RecordeRedtc=tueen ee in from Customer into Z 
= Master an property b ok. Z 
JOR HHI A RA IK HAIR EEA ASR KA GOR FOCI IIR T A HRI RAI RIA KHIR IIR BAHIA 
Selecems 

Use PROPERTY index SNPROPER 

Selecune 

Use RSL” index INASL 

Se lecivay 

Use CUSTOMER index CICUST 

Select E 


Use BATCH index SNCIBAT,CIBAT 
Store "The 150 Laan Division'' to Mcedesc2 
Store x! -to checks fcheck,Zcheck 
Li omeit l=]! 
Close ise eeeeee 
Return 
Enda 
acheck = .T. 
Do while Kcheck 
Store mcil to custm 
Do while .T. 
Clear 
GrlrOr ls clear, to. i465 
@G- 10 1Satonl4, 65 
@ a a Say " Customer Code : " Get mcil pict "9999" 
@l 7 Say " Stock Numbers: Getmstechn = 
Pi a qieacce -99-999-9999"' 
: 20 Say "Leave blank Stock Number to Exit" 
ea 
Select D 
Seek mcil 
If .NOT. found() 
@ 16,17 Say "Not found '+mcil+'' Code customer. " 
@17,17 Say " Please check the code, or add customer first" 
Store Ue NS 
@ 16,15 clear to 1870 
@ 17,17 Say "Do you want Add the customer Now? " ; 
aes ans pace tine 


If ANS = "vy" 
Store mcil to mci 
Bo ADDCUST 
Endif 
Else 
Store cdesc to mcdescl 
Exit 
Endif 
Enddo. 
lf mer <> -cusen 


110 


@ [OMiseclear to 14,65 
@ [ORrSetol4, 65 | 
ColZcomeay this data will not be added.......% 
22 Chia 
N=0. 
Do while N < 35 
N=N+l 
Enddo 
Exit 
Endif 
Select B 
StockN = DPBS Eee!) 
Seek StockN 
Do case 
Case stockN = "' " 
: Select E 
Pack 
Xcheck = .F. 


Case .NOT. found() 
Clear 
Ces, Oesayececckhat is Notetoundiin yoursproperty book" 
: pee say 'Please check STOCK NUMBER and try again" 
al 


Case found() 
mcost = unitcost 
monhand = onhand 


Select E 
Append Blank. 
Replace CI with MCI1, Type with Mtype, SN with StockN,; 
Unitcost with Mcost, Date with Today,Reqno with Mreqno 
RemycemrOolED with .F. 
Dowwhale .T. 
Set format to turnin 
oe heck) 
zcheck = upper(zchec 
If zcheck BP aya 
mqty = qty 
store Réeano to mmeqno 
Seteconmac to 


Eo tC 
Endif 
Enddo 
Clear 
Stockn = space(l16) 
Endcase 
Enddo 


Do TRIUNLST 
Close Databases 
Release all 


Return 
Aa See e cone ee nee e noses e * EoOf turnin.prq *«crwscenne enw ce enc wencce==- a 
h. TRTUNLST 

HIKARI KAKI RIKER IKK AKAIKE RREK RIERA RERERERREEKRIRRRERERERRRRERRKK 
KRREKEKKKKEKEKKKEKKEKKKKKEH TRIUNLST.PRG KKK KKKKEKK KKK KKEKRKKEKKAEKKEKKSR 
KAKKKAKKKAKKAKKAKKAKKEKRKKEKKEERAEERERRERRKEERRERRERERERRERRREREREREKRRERRREKRRER 
geerogram.: TRTUNLST.prg a 
* Author..: Park, Taeyong * 
™™Date....: Sept 2, 1987 * 
m= Notes... : Report generate rogram, called from TRTURNIN prg * 
HH KKKKKKKKKKKERREKKERREKRKERRRERRERKERRERRERRRERERARERRERERRRERERKREARKRK 


Clear 
Select E 


11] 


Set relation to sn into property 


Store 'X)  tommprine 
Store 0 to total,mtotal,Z 
Do while .T. 
Clear 
COO Foe tel obo . . 
@ pas Say 'Ready Printer ?9' getimprinteprete... 
Rea 
[Tf phints— we 
et print.on 
@ 1423 Saye Peintingec... . 
set console off 
Eda 


@ 15,. 15 Say "Be peady pranter aa" 
Walt 
Endif 
Enddo 
Store Val(substr(Vnl1,8,4)) to mvn 
Mvn = 100000+mvnt+l 


Vnl = "1S000M="*substr(sGuimvn) (7 74) tee 
Store 1 to pagectr,linectr,N 
Go to 


Do vine .NOT. eof() | 
hse a = mtype .AND. c1=Custm 
.NOT. ‘posted 
If linectr=40*(N - m + 1 
Val(Substr(Vn1,8,4)) 


Mvn = 
Mvn = 10000+mvntl 
Vnl = "1S5000M-"+Substr(str(Mvn) ,7,4)+"-"4+Zulu 
2 1 
> 1 
2 I j 
a pss LIST! 
Bo (Turn-In) | Pagem + str(pagecctr, 2) 
5 
2 | From’ 2) ihnemioe Infantry Division | 
Pineal 
2? ' Date : '+DTOC(date()) 
? | To : '+mcedescl , 
? 
ce Voucher Nome tVvnil 
5 ' 
?_' No Stock number ~Descrisrion 
22 VeOQUanGie vy Unde price Total Reuasble' 
SLOre. pPagectt srl to pagecmrn 
Ener 
SCOne inectr atema 
If misc 


? Str(Z,4)+' '+snt' '+rtrim(b->nm)+space(15-LEN(rtrim(b->nm) ) ) 
one tai Scrat b->unit 

2? str(b->unitecost) stestrilb=suniteose.geyy le =! 
?? Mise 

Store b->unitcost*qty to mtotal 

Store total+mtotal to total 

Replace posted with .T. 

Store B->onhand - qty to monhand 

Select B 

Replace onhand with monhand 

Replace tvalue with monhand*unitcost 


select E 
Else 
? oe een '+SN+!' '+rtrim(b->nm)+; 
space(15-LEN(rtrim(b->nm) ) ) 
coe '+str( qty )e b= -unitr: 


?? misc 

Replace posted with .T. 

mrche totql to srotal 
Endif 


2 


Replace vn with vnl 

re linectr=40*N 
wi 
- ' 
a SS eS SS ee I 
2? ‘Grand Total '+ str(total) 
y 


mis 
D : 
? 'Material Management NCO : — sss 




















?? 'Date : / 
? 'Material Management Officer : 
oak S|: y, 
Eqieec 
N=N+H+1 
Endif 
linectr = linectr + 1 
Enc e 
Bet £ 
Skip 
Enddo 
a | 
2> | 
> Tots aa 
ae Grand Total SOS ti tOt aL) 
=) a 
ao Authorized to turn-in 
e by 
? 'Matrial Management NCO : : 
| Date : / ef ! 
? 'Material Management Officer : 
mae’ Date : 
linectr = 
pagectr = l 
Seore 0 to total 
Egiect 
See print off 
Set console on 
Return 
Kewe nance nnn e ne eeeen-- * Eof TRIUNLC.prg *------e-e- cece cence e nnn --- BS 
1 TRCANCEL 


KRAKAKARKAKKRARAKKRARKAR AKA KARKRAK KKK AR EKER ARK RAK RK RAR ARK RAR RRR RAK AK A 
KKKAKKKKKAAKKKAKAAAK TRCANCEL. PRG «_- RR AKA KAKAKAAKAKAKRAKR ARK RAK RK 
KKAKKKKAKARKRKKRAAKKE ARR KEKE REAR RE REA RA RE RK ARK K AKA KR RR KAKRAKARKKR RAK KK 


* Module name....: TRCancel.prg * 
BMreniOL.....eeeee: Park, Taeyon 2 
BMG. ss ses..s SOPt 20. 198 * 
x Purpose........: Cancel the request for issue item = 
geealled by......: Transact.prg — 
* Modules called : None : 
KARA RKAKAKK AKER KERR RK RRA RK RAR KAKI K RIK IK RK KIKI KAI KARR RIK IK RIK KR IK I 


Use Master index SCTMAST 
Store "N" to Checks 
Store Stockn to Msn 
Srore "i500" to Mcust 
Seore MsntMcustt' RL" to Msncu 
Seek Msncu 
Do case 
Case STOCKN = " " 
More = .F. 
ae eds? 
Giles lS clear to 15,65 
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lS COL S65 


@il 
‘ ee Say "Please Enter Stock number you want to cancel ! " 


Do "while Nx<- 35 
N = Ntl 
Enddo 
Case found() 
Set format to CANCMAST 


Read 
If checks= "y" 


Replace Vn with "CANCEL-0000-0000",posted with .T. 


Store UNnLEeCOSE tO meose 
SLOne  Feqne FO Mrccane 
SOE @dcy Omen y 
Append Blank 


Replace sn with stockn,ci with "1500",Reqno with mreqno 
Replace ety with Mqty,Type with "CL" ,unitcost with mcost 

Misc with pea ttc with .T.,Date with today 
=SOO0-O0C8™ 


Replace 
Replace Vn with '"Cance 
More = 

Endat 

set format ee 


Case .NOT. found() 
@ 11,15 clear toulsees 
iy Sere. 15.65 


@13,18 Say "You never request '+stocknt" code item !" 


2? eh?) 

N=1l | 

Do while N <35 
N=N+1 

Enddo 

More = .F. 


Endcase 
Close Databases 


;. TRACKING 


KAAKAKAAKKAKAKAKKARARKKARARARRAKR KKK K RK AAR RAKRARAKR AKA RA RRKRRARARARKKARAKR 
KAKKKKKARKKKKKAKAKAKKKK TRACKING. PRG KHAKKKKKKKAKKKKAKAKKKKAKKARAKR 
ARAKKKKAKKAKAKKAKKAKKAKKAKAKAKR AKA RR AR ARAKAKRARARKKRAKAARA RA RKAKKRARA RAR 


* Module name... «.: [rvancking.pue 

* Author: coun... * Pane laevon 

x Date... .0.mepscteceh tec Omens 

* Purpose.......e: Tracking the record of transaction. 

x Called by-,....¢ Iransaceaprg 

* Modules called : None 

KARKKKARKKK RRR RKAKKKEKERK RRR KKK RRR KRAKKKRKK RRR KKKKKRRAKKKKAKKKKKKKKKA KK 


Set talk ort 

Set echo off 

Use master 

Index on CitsN (to .eSMase 

Use master index sctmast,CSMAST 
title = "Sales Tracking" 


Mok="Vv" 

Do while .T. 
Clear 
@4,25 say title. 
@ 6,15 Say options! 
@10,17 Say "1. Detail Sales" 
@11,17 Say "2. Summary Sales" 
@12,17 Say "3. Detail Customer Sales" 
@13,17 Say "4. Summary Customer Sales" 
@15,17 Says. Return to main menu! 
@17,15 Say "Enter Option: ‘' 
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+ FO OF OF OF 


a2, 1 to 23,75 
pore "'' to sel 
@ = ,29 Get sel 


Do while i=0 


i=inke i 
omer (2) 5! 12345" 
Exit 
ct & 
1=0 
Enddo 
@ 17,29 aay Gani) 
Lf chr (i) Sa! 
Exit 
Endif 
Store ey to Enddate 
piecue space(s) to begdate 
Geel, Jesay “Enter period for sales tracking ( - yo 


@ 21,42 Get beddate uP pict "99/99/99! 
§ ey 93 Get Enddate pict 199799799" 
ea 
Store eecice Bas to begdate 
Store Ctod(Enddate) to enddate 
Set filter to Date>begdate 
Do case 
Case chr(i)="1" 
Set Order to 1} 
Do setup 
Report form tranrpl 
Case SS ae 
Set peace Ee ol 
Do setup 
Report form tranrp2 
Case ee eis" 
Set Order to 2 
Do setup 
Fepeuruscorm Eranrps 
Case chr(i)="4" 
set Order to 2 
Do setup 
Report form tranrp4 
Otherwise 
Loop 
Endcase 
If Upper (Mok)="Y"' 
et console on 
Set print off 
Set Order to l 
Else 


@ 24,17 Say "Press any key to continue... 


Waitil 
Endif 


Close databases 
Erase cimast.ndx 
clear 

Return 
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-AND. Date<Enddate 


3 


REPORTS 
a. REPORTS MENU 


FPF FF FIFI KK KK KK KK KKK KI KIKI KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK RKKKAKKKAKK 
FF KIKKKKKKKKK KKK KKKKKK REPORTS.PRG FIRE KKK KKK KKK KKK KKKKKKKKKKKKHK 
FOF FFF FF FFE KF KK KF KKK FH FF FIFI IK KKK KK KIKI IK KIKI KKK KKKKKKKKKKAKKKKKK 


+ OF oF OF OOF OOF 


KARKEKKKEKKKKREKKKKKAKKKAKRKRAKKKKRRKKKKKAKRKRKKKAKAKRKKAKAAKAAKKAKKAKARAKAKAKAAAR 


Module name....: Reports.prg 
AUCHOl mes ceeree : Park, Taeyon 
Date cane Mereees oe t 1S... 198 
Purpose........2 TG generate repemiete niagnerseonana 
or to use in division 

Called by 223. eens GG 
Modules called): RPisk-prg RPSOR.ptg RPOST org RPElo- pe 
Variales used..: 

Public.: Reportd(last report date) 

Local..: Bigdate,Enddate,Msel 


DO WHILE 


Store ‘space (8) to begdate,enddate 
Store "X" to Msel 


CLEAR 

1,15 30 3755 deuble 

4. EEO 2377 

6, 3e00 wes 

5 2 Ones 

6,5 SAY SPACE(23) 

6,41) FO. lza75 

5 42 moe), 59 

Oe 43 SAY SPACE (16) 

14, AVE TOrZ1. 75 

13 TO 15,59 

14,43 SAY SPACE(16) 

2,25 SAY “RE. Pl p@m hee lou 

6,6 SAY "Types cienepor ta. 

6,44 SAY "Information! 

14, 44 SAY "Time Period" 

9,6 SAY "1 : Transaction Status Repove: 
10,10 SAY "(DAttorm sies) 

12,6 SAY-"2 = Sitoe koe Report" 

13,10 Sav UDA seoum 3184)" 

15,6 SAY "3):9@s "Repome. 

16, 1O SAY “(Da eserm sles 

8.6 SAY "4 : Combat Essential Item!" 
19,10 SAY "Stockout Report! 

20,10 SAY "(DA formusiec) 

8, 46 SAY "Last TSR Report Date" 

9, $0 SAY TSRDATE 

11,46 SAY "Today...." +DTOC(TODAY) +" ("+zulut")" 
ee SAY "Biginning Date - ened Date'! 
1 

SET bOLOR “Yo. N/W 

@ 19,51 SAY Begdate Pict "99/99/99"! 

@ 19,62 SAY Enddate Pict '"'99/99/99' 

SE COLOR To 

@ 22,13 SAY "Enter Selection from (1 - 4, or 0 to return) : :|{" 
SLORE . “l@eserE 

¢ 22,60 SAY SEL 


MAIDADAADADAADDADADADDD DAD ODia DOD a (aa (a) fa) 
bk 


ee eee The following lines are for select loop 
i= 
DO WHILE i=0 

L=INKEY() 

a2 27508 SAY fe 


io UPPER (CHR(i))$"01234" 
@ oe 760 SAy CHR) 


ENDIF 


116 


* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


1=0 
ENDDO 
mee CHR( LT) = "0" OR. [=27 
esl (7 } 
Clear 
Exit 
ENDIF 
DO CASE 
Case CHR(I) = '2' 
@ 8, 46 SAY "Last SOR Report Date" 
@ 9, 50 SAY SORDATE 
Gascrenn ty = '3' 
8, 46 SAY "Last OST Report Date" 
@ 9, 50 SAY OSTDATE 
Case CHR(I) = '4' 
@ 8, 46 SAY "Last EIS Report Date’ 
@ 9, 50 SAY EISDATE 
ENDCASE 


a Oo leoEl Beqdate Pict1'99/99799" 
eee Gil ebnddate Pict. 9/997 991" 


IF BEGDATE =" " .,OR. ENDDATE="' !! 
? CHR(7) 
‘ a SAY "YOU HAVE TO ENTER THE PERIOD!"! 
DO WHILE K<40 
K=K+1 
ENDDO 
LOOP 
ENDIF 
Store eee aes, to beqdate 
Store Ctod(enddate) to enddate 
DO CASE 
Case CHR(I) = '1'! 
Do RPTSR 
SHORE TODAY TO TSRDATE 
Case CHR(I) = !2'! 
DO RPSOR 
STORE TODAY TO SORDATE 
Case CHR(I) = '3! 
DO RPOST 
STORE TODAY TO OSTDATE 
Case CHR(I) = '4'! 


POwRPELTS 
STORE TODAY to EISDATE 
OTHERWISE 
Geen (7) 
ENDCASE 
ENDDO 
RETURN 
Kenwwew croc wwcerecencce * Eof: REPORTS .prg *“ereerecccerccccescccennn-- x 
b. RPTSR 

KKRKKEKKRKRKK RK AK KKK AK AK KR AR RRR KKK AKIRA KAKA KKK RAR KIRK AK RK AKER ARAKI 
KKKKKKKKKKKKKKKKAKKK RPTSR.PRG KKKKKKKKKKKKKKKKKKKKKKKKKAKKK 
KIRKE KKK KAKA KKK RK AAR KAKA KIRK IK IKKE K AKA KA KEK AK RKE KE REKRK KR K RK RK RK RK KK 
* Module name....: RPTSR.prg * 
BMPATNEMON 4 cscs. 3 Park, peyon xs 
BEUACess.s. ene: Sept La. 198 . . x 
* Purpose........: Generate Transaction history report “s 
. to higher command. * 
emealied by......: REPORIS.prg ~ 
* Modules called : S 
* Variales used..: S 
‘ Local..: Begdate, Enddate, Classn, Type i 


el 


KARKKKKKKEKKKEKKKKRKKKKKKKKKRAKKKKR KK KR KE KKK KKKEKRKKRAKRKRKRKKKKKKKKKKKKKKKKE 


Clear 

Select B 

Use PROPERTY index snproper 

Do while . 
Store " " to Classn, Mprin’ 
Store ' Transaction Status Reports" to Mtitle 
Vousetece 
Store "(Date>=Begdate .AND. Date<=Enddate)'' to period 
store ee e='RL'.OR. TYPE= 'IL',. OR. TYPE='CEY .OR. Ty2E="TL'" to teers 
Store "&PERIOD" TO CN] 
Select A 
Use MASTER index sctmast 
Copy to Mimast for &tcond 


NGtcace wr 
Case BOE ee ul 
Select B 
Index on Class+Sn to CSPROPER 
Select A 
Use Mlmast 


os Co SIMAST stomsccm. 
CAse upper (¢ (chr(i))="2" 


@ 14, $0 Say "Enter Class aes 10) " get Classn pict "9"! 
@ 15,30 Say " Qi ES 
Read 
Pevelassnc=— 0" 
Store '"10'' to Classn 
Endif 
Select A 
Use MIMAST | 
GOey to XTMAST for &period 
X ON SN TO XTMAS 
USE XTMAST INDEX XTMAST 
Set relation to sn into B 
Copy to STMAST for b=Selass='&claccn™ 
Use STMAST 
Erase xtmast.dbf 
Bee xtmast.ndx 


aiite 
Case upper (che (i))="3" 


@ 16,30 Say "Enter stock number" get stockn; 
ict '9999-99-999-9999' 
ead 
Select A 
Use MIMAST 
Index on sn to MIMAST 
Use MIMAST INDEX MIMAST 
Store "&period .AND. sn='&stockn'" to conditl 
EOP EO SIMAST for seconde! 


Case upper (chr (i yal'gu 
ose databases 


Return 
Otherwise 
eaenr (7) 
Endcase 
Enddo 
Select A 
Use STMAST 


Index on SN+TYPE+CI to STMAST 
Use STMAST index stmast 

Erase MIMAST.dbf 

Erase M1IMAST.ndx 


Do printer 
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Store 1 to Beso oO eee) Line b 

Store 0 to mdi,reqqty,canqty,recqty, turnqty,DInow,mqty 
Store 0 to sreqqty,smdi,scanqty,srecqty,sturnqty,sdinow 
eno ( ) 


@me lS Clear to 14,58 
cero 18 to 14.58 


emt, 20 SAY " You Never Requested! 
: eens Say '"'! Press any key to return... .! 
al 


Close databases 
Erase STMAST.DBF 
Brase SIMAST.NDA 
Return 

Endif 

select A 

Clear 


MUMS ie sive se belles cs ee ee .. Holds one of item from property file 


Do while .NOT. Eof() 
store SN to stockn 
select B 
store class to classn 
store nm to mnm 
Select A 
seek stockn 
me found( ) 
Sumeqty<Unrecost for puver Rls -AND. date < begdate 
Dieoue dty~unitcost to qty 
Sum Qty*unitcost for type="IL" .AND. date < begdate 
Stone adcty ito iLaqty 
DLs Rude y colt y 
Seek stockn 
Do while .NOT. Eof() .AND. sn=stockn 
Seore Gey sunitcost to maqty 
Do case 
Case type = "RL" 
eqqty = reqqtyt+mqty 
Case Type =. Cle" 
anqty = Cangqty+mqty 
Case De = "TL" 
See ecu nay 


Case Type = 
urngty = Turnqtytmqty 
Endcase 
Skip 
Enddo 
Store MDI+reqqty-Canqty-Recqty to DInow 
If liner=1 
2 | ( 
> 1 
2 j | 
Can Transact Status Report' 
Co Page ' + str(pagectr,2) 
> I 
oon wee sete! +Dtoc(date() ) 
? eeeecom 3) Fae\ 150 ee eee cee 
ce To : The 3333 Logis ics Supprot Command' 
> I 
> 
_ ero ie 
? I ' 
?? Dtoc(begdate)+' - '+Dtoc(enddate) 
> I 
TNS Stock number Description ' 
en D/Ibeg Req st Cancel Rec ve Turnin D/Inow' 
Store pagectr + 1 to pagectr 


Endif 
Stone-srinectr to. 2 


? Str(Z,4)+' '+stockn+' 'trtrim(mnm)+space(15 - LEN(rtrim(mnm) ) ) 
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ee UE EEE ae +! oly SUBSETS EME Say way.) 
?? substr(str Seay 4,7 Saubee einen : 
?? substr(str Been 4, y+substr(Str(DInow 7 
Store Smdi+mdi to Smdi 
SEGre Steaqqeabeadge, CO sneqqey 
Store Scangtytecangqe, sto Scangry 
store ore CO eae EOeSrecary 
Store Sturing ee Eom EUENGiey 
Store Sdinow+dinow to Sdinow 
Store 0 to md1,reqqty,cangty, recqty, turngty, Dinow 
Linectr=iinecer a! 
Liner= linertl 
Et liner=40"N 
? 


55 1 i 
> SSS 
ie Grand Total (+ eSEr( tOtal) 
> 1 
> | 
? 'Material Management NCO 
2? “Date. , ; 
? 'Material Management Officer 
oo eb aee a: Ht ' 
EVect 
N=N +1 
Endif 
Endif 
If sel="1" 
If linectr=1 
Select B 
Skis 
Store class to classn 


, / 








? it ! 

?? 'Subtotal '+'! '+SUbStr( Str smcdaem oo) 4 

?? SUDSERCs or Spee ee ae ety terre na 
2? Substr(str(Srecqty) ,4,7)tSubstr( stn Stumped. | 
fe substr Str Sdinow 4, 


Store 0 to sreqqty,smdi,scanqty,srecqty,sturnqty, sdinow 
Ss COre seo rineeer 
Lineu= iota 
Bear 
Enddo 
EE, liner>1 
? 
> ! I 
? 'Matrial Management NCO : 
?? ' Date : / | 
i) I 
? ‘Material Management Officer =. assemeeee seer 
?? ' Date : 
linectr = A 
agectr = 
endif 
If mprint="Y" 
ject 
SeLeconcolewon 
Sec) pletneeoct 
Bicep 
Set covor tosh) W 
Walt 

















See color to 

Store space(16) to stockn 
Clear : 

Close Databases 

Erase STmast.dbf& 

Erase stmast.ndx 


If sel="1" 
Erase csproper.ndx 
Bndift 


@9,15 to 15,64 double 
ime, 25 Say "Finished report for TSR " 
: <i Say "Period "+Dtoc(begdate)+" - "+Dtoc(enddate) 
Do while n<35 
N=N+1 
Enddo 
Clear 
Store Space(16) to stockn 
Release all 


c. RPOST 


KRAREKKKKKKKARKKRKRRKAKRKRKRKRKAKRRRKRRKAKAKRKRRRRRKRKRRKRR RRR KARR KK KRKRKRRARKKRKRKRRR RRR KK KRKRRAARKRRRKRK 
RAEKAKKKKAKAAKKKAAKKE RPOST.PRG KRAEARKKKKKKKAKAKRKRKKRKKKRKAKRKRKARKKARKRAKKK 
KAREKKKKKAKRKKARKRKRKKRKRKRRKRKRKKRKRKK KK KKK RKRKRERKRKRKRRKRKRKRKRRKRRRRKRKRRRKRKRRRRARAKRKRKRRARKK 


Module name....: RPOST.prg 
PUNO G ss 6+ 6 0ses? Fark, eey 20 
DAC@....seeeeee eens "ass hehe . a 
FulpDOSe......-..: Generate Oder shipping time report 
Mailed by......? Roper toybad 

one 


Ob OF OF OF OF 


s 
Oo 
OL 
Cc 
m 
”n 
a 
4 
ie rae 
+e 


Clear 

Berect B . 

Use PROPERTY index snproper 

Boewiile .T. ; 
peore “eueto Classn, Morint . 
eeone ORDER TSGHIPPING TIME REPORT’ to mtitle 
Dore select 


Store '(Date>=Begdate .AND. Date<=Enddate)" to period 


Do case 
Case Bee ayaa )=ed" 
ai" ye 


Detect 5 

Index on ClasstSn to CSPROPER 

Select A 

Use master . 
Store Ee ne -AND.&period" to conditl 
Copy to RLMAST for &conditl 
Sicoke REY Deane -AND.&period" to condit2 
Copy to ILMAST for &condit2 


Ex1 
CAse Beet) = 120 
ej="ou 


@ 14,35 Say "Enter Class number(1-10) " get Classn 


Gers sSesay ' (0 foumeg:) 
Read 
If classn = "0" 


Use master INDEX sctmast 
Seembetation to sn into B 


Store "type='RL' .AND. &period .AND. b->class='&classn'"; 
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OO 


tceconcmnies 
Copy to RUMSST tor sconditim 
Store Aa Beare -AND. &period .AND. b->class='&classn'"; 
EO=conca 

€Copy to fleas? ter scenartZ 


EX1 
Case Ue n ae 
e]s3u 


@ 16,35 Say "Enter stock number” get stockn; 

EC Gl ooo Segoe 

ead 
Select A 
Use master INDEX sctmast 
Seu Vel aetonero silent 
Store ye cea -AND. &period .AND. sn='&stockn'"; 
te condi. 
Copy to RLMAST fer Sconditl 
Store see -AND. &period .AND. sn='&stockn'"; 
EO “cond 
Souy to ILMAST for &condit2 

1 


EX 
Case UEP eC Oa 
C 


ose databases 


Return 
Otherwise 
Zamna a) 
Endcase 
Enddo 
Select A 
Use RLMAST 
Index on SN+VN to SRRL 
Use RLMAST index SRRL 
Df bos) 
@10,18 Clear to 14,58 
@ 10,18 to 14,58 
@11,20 SAY " You Never Requested! 
@ I2y20 Say 4 Press any Key to recunn.. 2 
Wealdiney are 


Close databases 
Erase RLMAST.DBF 
Erase SRRL.NDX 


Retin 
Endif 


Select C 
Use ILMAST 


Index on SN+VN to SRIL 


Use ILMAST 
If Eor@ 


index SRIL 


@9,18 clear to 13,60 
@ 9. VE xtG 13 ce 


@ 10,20 
icie2 20 
Wem tv!" 


SAY "You Never Received the requested item" 
Say "Press any key €0O yetumn.. 


Close databases 
Erase RLMAST.DBF 
Erase SRRL.NDX 
Erase ILMAST.DBF 
Erase SRIL.ND& 


Retiuiaa 
End@act 
Store €=t0 
SEOReROF CO 
Store 0 to 
Store -to 
Go top 
Do printer 
Clear 
select A 
Go top 


ONL SN2Z SNS, SN4 slop cMlOny siz DE ee eueeeee Sse 
N1,N2,N3,N4,N5,MIQOTY ,MZOTY ,M3OLY M401y Mooiy 

STOIN, TOTOTY -TOIN Sr@1Oly maare 
linectr,pagectr,N,liner 


EEE eel erene alae sao e ns ss 22560. Holds one of item from property file 
Do while .NOT. Eof() 
Store SN to stockn 
select B 
store class to classn 
Select C 
S 0 0 ce mae Find the stock number which is the same as 
BM Ch hast ees ek Bias ao <a inn eens at the file which is sorted type "IL" 
Seek stockn 
If found() 
Do while .NOT. Eof() .AND. sn=stockn 
Store Date to mlidate 
Store VN to MIVN 
Store Stockn+M1VN to mstock 


Sain Ten emeaat:< Find the stocknumber which is the same voucher 
‘ Reet ce inst es. tr 60 at the file which is soreted by type '|'RL"' 
Select A 
Seek mstock 
Ge found |} 


Store date to m2date 
DEO Re uci. oO mae 
Store mldate-mZdate to mdate 
Do case 
Case mdate<7 
eae nos 
Miqty=Mlaqty+mat 
Case aa ecveae se 
N2=N2+1 
had ee ee de ty 


Case (Mdate>=1 . Mdate<30) 
ae ee 
M3aqty=M3qt an ty 

Case neon sane i  Mdate<60) 


uaa er ; 
M4qty=M4qtyt+m 
Case Mastes=60 Oe dace<90) 
NS=N5+1 
MSqty=MS5qtyt+mgty 
Endcase 
Endif 


Store N1+N2+N3+N4+N5 to TOTN 
Store MLOTY+M2QTY+M3QTY+M4QTY+MS5QOTY to TOTQTY 


Select C 
Skip 
Enddo 
ee liner=1 | 
g \ i 
> I i 
a! Oder Shipping Time' 
?? ' Report Page ' + str(pagectr,2) 
? I 
eae ae : '+Dtoc(date()) 
? | i 
cas To : The 3333 Logistics Supprot Command' 
foooerrom < Lhe 150 Infanry Division' 
> 1 
a From 
Beato. 
> ('+dtoc(begdate)+') - (' 


2? Dtoc(enddate)+')' 
? 


? ' No Stock number 

ae! OC. 7days l4days 30days 
a ' 60days' | 

? 

as Tota). 0 uly, Frege © sc) st reqd asOety Fréegqmso ty. 
?? ‘Freq 


Sone Beeeetr + eto pacgectr, 
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Endif 


Store lineetregoruz 

? Str(Z,3)+' 't+tstockn+substr(str(TOTN) ,5,6) 
2? substr(str TOLOL Y) 5,6 

?? substwystr iis oc +substr(Str MOT) ay 
?2usubs tri striN2 pe) + SUDStm sc ernc Oly jose 
?? SUBStMtatmiNs 1) so) +SUDSst ry cstmaiie Oly oe 
?? SUBSEr(SEr(N4) 5,6) tsubstr(ser(Meory) o- 
Store STOTN+TOTN to STOTN 

Store STOTOTY+I01 Ae EO STOLUlY 

Store SN1+N1 to SN1 

Store SM1QTY+M1QTY to SM1QTY 

Store SN2+N2 to SN2 

Store SMZQTY+M2QTY to SM2QTY 

Store SN3+N3 to SN3 

Store SMZ00Y+izZenyY Comsiizer: 

Store SN4+N4 to SN4 

Store SM4QTY+N4QTY to SM4QTY 
Linectr=linectrt+l 

liner= liner+l 

If liner=40*N 


6 
6 
6 
6 











>? 1 1 
>a 1 
> 
> I ' 
? 'Material Management NCO : 
?? ‘Date : 
? 'Material Management Offi cer : 
7? 'Date 
Eject 
N=N++1 

Endif 

Endif 
Tf sel="1"' 

If linectr=1l 
Senece Ss 
Skip 
Store class to classn 
Loop 

Enairr 

areca B 

SK1p 

Bo 


We 

f (b->class<>classn) .OR. EOF() 

? ‘Class "telassnt? 5 ee 

29 ie a oa oe a ae a es a ree ee ee 
a Subtotal ' 

?? Subsitnts tr SERN)? 6)+substr(str(STOT vie ae 
7? Supstristri snl) ,5,6 6 | 


,0)+ SET Cee ena 
2? substr(str(SN2),5,6)+substr(str(SM20TY 
(2 Substrtstr (sis), oe mslbstr (str SMSOTY § we 
2? substr str SN4),5,6 +substr(Str(SM4QTY), ae 








? 
Store 0 to SN1,SNZ,5SN3,SN4 SHS -SuloOt sot rg joe ana SM5OT @ 
Store 0 to N1,N2,N3,N4,N5.MLOTY, ee »MB0TY ,M4QTY ,MSQTY 
Store OQ to STOTN rrorory, TOTN, STOTQTY ,mdate 
Store 1 to linectr 
Liner=linert3 
Endif 
Enddo 
isd liner > h 
? 
a 
? 'Matrial Management NCO : 
2? ' Date : / TSS 
? 
? 'Material Management Officer : 
ee Dates 
Endif 
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meemorint="y" 
ject 
Set console on 
Secworint oft 
Endif 
Close databases 
Erase Csproper.ndx 
Erase RLHASTI.DBF 
Erase SRRL.NDX 
Erase ILMAST.DBF 
Erase SRIL.NDX 
Set color to N/W 
Wait 
See color to 
@eo, 15 clear to 15,64 
mmo, 15 to 15,64 double 
@ 11,25 Say "Finished Feporteron Oole. 
- me! go Sayaurertlog “thtoc(beqdate)+" = "+Dtoc(enddate) 
Do pues, <6 


Store Bees te) to stockn 
Release all 


Clear 
Return 
am ten mre eee enenrencen--- * Eof OST. prg *------nn nnn nnn nnn cnn enn n nnn nk 
d. RPEIS 

FAK RK RK AK RRR RK I RRR RIOR OR TORR II OR IR ORCA OR RAR AK AR AK 
KAR AK AK RAK A AA RK KR RPEIS.PRG FAK RK AK RRR ARIK RI A AK 
FRR RR RII A KIA FR ICR RA A RIA I IR I I I TA TR RAAT AIR RRR ATR IR RA IK RK 
Beloaule name....: RPEIS. x 
Mmeuithnor.......2+.: Park, Bae on ; 
BOC. s-seess?2 SEDC 24. i398 * 
* Purpose........: Generate Combat essential item a 
“ Stockout history report to higher command. =~ 
eeecalled by......: Reports.prg * 
* Modules called : * 
* Variales used..: s 
x RUbLic. ; * 
: nocd pemonmscs, Mprint, Mqty, Mcost, ; 
KAKA RAI KAKI RR IK RK IK RR A FR II IR IRI I IR RA IR IR I TR IRR RR OR IR IR FR 


Select B 
Use PROPERTY 
Sepvyto TEHMPPROP for ESSENCE 
Use TEMPPROP 
Index on Class+SN to CS ropes 
Use TEMPPROP index CSPROPE 
Select A 
Use STOCKOUT 
Index on SN to SNSTOK 
Use STOCKOUT index SNSTOK 
Select B 
Store 1 to linectr,pagectr,N,liner 
Store O to sts30,sts6 /sts90, sts120,stco30,stco60,stco90,stcol20 
2 OF tO $30,560,890, '$120, $co30, sco60, sco90, scol20 smsqty, mscost 
Cato 

Store CLASS to GmEASSN 
eeene ' " to Mprant 
Do printer 
Clear 
Do while .NOT. Eof() 

Store SN to STOCKN 

Store NM to MNM 


rm 


Select A 
Seek STOCKN 
If found@, 
Do while .NOT. Eof() .AND. sn=stockn 
Sieieyg O10. ice) )yleniyd 
Store Oly UNTICOs] Eo uNGest 
Lt Dtoc CRESI LL DATE ="! 
Skip 
Loop 
Endif 
Store REFILLDATE to FILLDATE 
Store OUTDATE to SOUIDATE 
Bal = FILLDATE-SOUTDATE 
Do case 
Case bal <= 30 
S30 = S30+maqty 
Sco30 = Sco30+mcost 


Case Bal <= 60 .AND. Bal>30 
S60 = S60tmagty 
Sco60 = Sco60+mcost 


Case Bal <= 90 .AND. Bal>60 
So0)— soesnary 
S$co90 = Scog0+mcost 


Case Bal > 930 
$120 = etecrmg ey 
ScolZ20 = ScolzO+mcost 


Endcase 
Enddo 


seore S$30+S60+S590+S] 20 tovscoly 
store SCOS0+SCOG0FSEOS0FS EO) Z0 Tess Gacr, 


Lf biner=1 
= 1 
> 1 
? i I 
rs Combat Rssential Item ' 
2? 'Stockout Report Page "+ str(pagecer, 2) 
eo | Date : '+Dtoc(date()) 
2! To ; The 3333 Logistics Supprot Command) 
? ! From : The 150 Infanry Division' 
? 
oa From Loo 
ae ('+Dtoc(begdate)+') - (! 
?? Dtoc(enddate)+')' | 
a 
oe NG Stock number 
1¢ ee Loran 30days 60days 90days 


> a | ' 
ae 1ZO0days | 


?? 'Total Cost Item Cost Item Cost Item Cost '! 
7? 'Item Cost! 
? | 

StLONe —DagccuUr fl  eOmpagecer 
Endif 


Store linectr to Z 

? Str(Z,3)+' '‘+stocknt+substr(striscty yon 
?? substr(str(scost),5,6) 

?? substr(str 360): ‘}taubste (ste) seseo 


?? substr(str(s60),5,6)+substr(str(sco60 
?? Substr(str(s90),5,6)+substr(str(scog90 
?? substr(str s120),5,6)+substr(Str(scol2 
Store msqty+tsqty to msqty 

Store mscostt+scost to mscost 

Store Sts30+s30 to Sts30 

Store Stco30+sco30 to Stco30 


Or = = 


Store Sts60+s60 to Sts60 

Stoners tcOoUtscouu to Stco60 
Store Sts90+s90 to Sts90 

Store Stco90+sco90 to Stco90 
Store Sts120+s120 to Sts120 
Weer oteQnce.5cOlZ0 to StcolZ0 
Pigecth—iinectrt 

liner= linert+l 

If liner=40*N 











> ' 
5 
> § | 
oa 
? 'Material Management NCO : 
eae Dace / 
? 'Material Management Officer : 
Co bates 7 
EV eceE 
N=N +1] 
Endif 
Endif 
If linectr=1 
Se lecr. 5 
Skip 
Store Class to classn 
Loop 
Snail 
Select 5B 
ski 


P 
If class<>classn .OR. Eof() 
? ‘Class erasoDt i (0 ieee =a = 


2? lemme ememenemenew wn eer ene emeeeew ee eee een ee em eee ew ene eee ee aw | 
— Subtotal ' 

Peustipstr( Stwumsaty) ,5,6)tsubstr(str(mscost) ,5,6) 

oe? Ess eristristssl), 5,6)+ substr(Str(stco30),5,6) 
?? substr(str(sts60),5,6 BeBe eae oS CeSe MEMES 

?? Substr(str(sts90),5,6)+substr(str(stco90) ,5,6 

?? substr str sts120),5,6)+substr(Str(stcol20) ,5,6) 


> | ( 
Store 0 to sts30,sts60,sts90,stsl120,stco30,stco60,stco90,stcol20 
Store 0 to S$30,s60,s90,s120,sc030,sco60,sco90,scol20,mscost,msqty 
Store 1 to linectr 
Liner=linert+4 
Endif 
Store class to classn 
Enddo 
et liner >) 


ae 
? 'Matrial Management NCO : 














es Date : 

? 
pe. Material Management Officer : _ 
me * Date : 

Beit 

BEemprint ="y" 
ject 


Setepranceotf 
See pcenso.e son 
Endif 
Close all 
Erase SNstok.ndx 
Erase tempprop.dbf 
Erase csproper.ndx 
@9,15 clear to 15,64 
ayo to 15,64 
iieezo say Finished report for Stockout™ 
13,25 Say "Period "+Dtoc(begdate)+" - "+Dtoc(enddate) 
0 


Leg 


Do while n<35 


N=N+l 
Enddo 
Release all 
Clear 
Return 
Rewwweenn an anneccennnnccen= ® EOL ELS. PU 2 a 
e. RPSOR 
RRR KA RRR RK RRR RAK RR RR RR RR RR RRR AR RRR TOR A RRA RO Ra a Ak 
KARR KRRRKKKKKKKAKK AR RPSOR.PRG KKK KKARKKKKKKKKA KAR AKKKKK KKK KR RAR 
KK RR KR KKK KKK KKK RRR KAKA KKK KK KA AK RAR KKK KKK KK KR RRR AK KAR RR RRR RRR KKK KR RR 
* Module name....: RPSOR.prg . 
x Author... a. oem ae ae en * 
A Daten weet 6es cee 2 SODA noe : 
*PUPDOSe% ars twee: : Generate Stockout history report a 
x to higher command. x 
* Called by : eee : Reports.pr . 
KAR KR RRR KKK KAKA AK KA KR RRA RR RRR RAK AK AKER ARR RK KKK KKK AK RRA RRA KKK AK KK RAR ARR 
Select B 
Use PROPERTY index snproper 
clear 
Do while .T. 
Store |! "to Classnereriae 
SEOLre STOCKOUT REPORT" to mtitle 
Do select 
Store '"(OQutDate>=Begdate .AND. outDate<=Enddate)" to period 
Do case oe 
Case Bee Ena i 
Select B 
Index on Class+Sn to CSPROPER 
Select A 


Use stockout 
Copy to TENPOUrL sfor «period 


CAse upper (chr (i))="2" 
elail2u 


@14,30 Say "Enter Class number(1-10) " get Classn 
CaS. 300 cava. (OM for 10). 
Read 
If classn = "0" 
Store; 10 sto elassn 
Endif 
Select A 
Use stockout INDEX stockout 
Set relation to sn into B | 
store “&period .AND. b->celass="celdssm  toecondit. 
Copy to TEMPOUT for &conditl 


EXL : (4)) “i 
Case upper(chr(1) )=!''3'! 
Peas: 


@ 16,30 Say "Enter stock number" get stockn; 
Pet ooo =J=9 99-2 Jo 
ead 
Select A 
Use stockout INDEX stockout 
set relation vtceonmintcmr 
Store "&period .AND. sn='&stockn'" to conditl 
EP EO TEMPOUT forvcconcaat: 
x1 
Case UBP SEGAL 2) ee 
Close databases 
Return 
Otherwise 
7 Gane) 
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Endcase 
Enddo 
Select A 
Use TEMPOUT 
Index on SN to SNTEMP 
Use TEHMPOUT index SNTEMP 
Peco ( ) 
@ 10,18 Clear to 15,58 
Seo vle to 15,58 


emi ,20 SAY " Never Stockout" 
‘ 3), 20 Say " Press any key to return....'" 
ait 


Close databases 
Erase TEMPOUT.DBF 
Erase SNTEMP.NDX 
Return 
Endif 
Do printer 
Clear 
Store 1 to linectr,pagectr,N,liner 
Store 0 to sts30, sts6 Seah sts120,stco30,stco60,stco90,stcol20 
peo. OF tors s 0, 560, soo. /$120, 5c030, sco60, 5c090, sco120 smsqty, mscost 
Go top 
Do while .NOT. Eof() 
Seore sn to stockn 
Select B 
Store nm to mnm 
Store class to classn 
Select A 
Seek stockn 
Pe Found( ) 
Do while .NOT. Eof() .AND. SN=STOCKN 
Stone sity scoemaly 
Stove dty-Umitcost to mcost 
ee, PURE CEE ECTS a. it 
Skip 
Loop 
Endif 
Store refilldate to filldate 
Store outdate to soutdate 
Bal = (filldate)-(soutdate) 
Do case 
Case bal <= 30 
S30 = poet 
$co30 = Scos0+mcost 


Case Bal <= 60 .AND. Bal>30 
S60 = S60+mat 
Sco60 = Sco6o0+mcost 


Case Bal <= 90 .AND. Bal>60 


S90 = S7eeae 
$co90 = Scog0+mcost 


Case Bal > 90 
$120 = S$120t+maqty 
Scol20 = ScolZO+mcost 


Endcase 


StOnesosOtooOtos0to. 20 geo oOly 
SLOuemoe Oso tocOourscOcO+seolZ0 10 SCOSt 


iat Tene bs i: 
> | ' 
> | ' 
os Stockout Report' 
oe Page ' + str(pagectr,2) 
> | 
ao We : '+Dtoc(date()) 
ea! \ 


Za 


2? ' To : The 3333 Logistics sup ppousecommanics 

2 7 From : The 150 Infanry Division' 

: 

> : 

? ' No Stock number 

?¢ oo) foetal 30days 60days 90days 


eo? | | 
ee 120days 


?? 'Total Cost Item Cost [tem Cost [tema eo ces: 
cr? 'item eos. 
store pagectr + ageo pageeus 

Enea 


Store “dinectr to Zz 
? Str(Z,3)+' '+stockn+substr(str(sqty),5,6) 
?? subStr(Cstriscosto, 556 





?? substr(strise@) 5 6) +substriStr( seocd) 75 G6 
?? substr(str(s60) ,5,6)+substr(str(sco60) ,5,6 
?? Substr(str(s90),5,6)+substr(str(sco90) ,5,6 
2? SUDStP (sit 5120),5,6)+substr(Str(scol20),5,6) 


Store msqtyt+sqty to msqty 
Store mscost+scost to mscost 
Store Sts30+s30 to Sts30 
Store Stco30+sco30 to Stco30 
Store Sts60+s60 to Sts60 
Store Stcoo0+sequGmto 15 ceooU 
Store Sts90+s390 to Sts30 
Store Stco90+sco390 to Stco90 
Store Sts1Z20+s120 to Sts120 
store StcolZ20+scolZ20 sbomStcolZo0 
Linectr=linectrtl 

liner= liner+l 

If liner=404N 


VU 








t 
> 1 \ 
> 
“ ( I 
? 'Material Management NCO : ! 
22 alee / 
? 'Material Management Officer : 
2? 'Date : / ' aa i 
EJece 
N=N +1] 
Endif 
Endif 
If sel=" 1" 
If linectr=1] 
Selecems 
Sivits 
Store Class to classn 
Loo 
Enea 
select B 
skip 
Endif 


If b->class<>classn .OR. Eof() 
2 ‘Class "'tclassnt!' www 


2? \esseueeweuvww wz ewww ween eww ee ewe ewww eoaeet wea nmnmaweeaeaseca \ 
2 Subtotal ' 

2? SUBS ERUSEL mea ,5,6)+substr(str(mscost),5,6) 

?? substrtstr(sts3e) 5 6 substr(Str(stco30),5,6) 
?? substr(str(sts60),5,6 pe peeo eco ecesca ret 

?? Substr(str(sts90) ,5,6)+substri(str(stco90) ,5,6 

2? substr Sit sts120),5,6)+substr(Str(stcol20) ,5,6) 


> 


Store 0 to sts30,sts60,sts90,sts120,stco30,stco60,stco90,stcol20 
Store 0 to $30,s60,s90,s120,sc030,sc060,sco090,scolz0 mscost msar, 
Store lL vomeieerr 
Liner=linert+3 

Endif 
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Enddo 
RE liner Daal 
? 
> ) . 
? 'Matrial Management NCO : ! 
ee VALE : i y ; a eg a 
ae ! 
? 'Materlal Management Officer : 
mee «6CDate |: ! a 
Endif 
erose all 
meemorint = "y" 
ject 
eee Console on 
Bee print off 














Emca £ 
feese l=)" 

Erase csproper.ndx 
Bada f 


Erase tempout.dbf 

Erase SNtemp.ndx 

eeempcolor to N/W 

Wait 

eeeecolor to 

@9,15 clear to 15,64 

ieee to 15,64 double 

@ 11,25 Say "Finished report for Stockout " 

¢ 25 Say "Period "'+Dtoc(begdate)+!' - "+Dtoc(enddate) 
Do while n<35 


Clear 
Store space(16) to stockn 
Return 


13] 


4. ANALYSIS 
a. ANALYSIS STARTUP 


RKRKKRRKR KERR KKKRRRKKK KKK KR KKRK KK KKK KKKKRKR KR KKK KKK KK RK KKK KKKKKKAKKKKKKE 


RRKEKKRKKEKKKKKKK AER ANALYSIS.PRG KRKEKKKEKKKEKKKRKKKKERKKK KKK KEK 
PKK KIKI KEK IKK KKK KR RR KK RRR KK RR RRR ERR KERR KRKKKK RRR KKK KKK KR RK KKK 
* Module name.) 4: ANALYST oarud * 
AV AUENOr eee »..: Park, Taeyon x 
* Date... ..ssteee SSDI roo * 
* Purpose........: Analyze the reorder point, safety level a 
x EOQ using probabilistic model rs 
. (Fixed Order Size System) a 
x Called by... cen Piatt * 
* Modules called : ANEOQ.prg, ANLEADT.prg = 
* Variales used..: * 
* Public.: TODAY.STD.STOCKN * 
es Local..: BEGDATE,ENDDATE ,CTITLE,MLEADT ,MOTY,ORDERC, * 
* SERVLFPRATE. RSID LST Neue ese : * 
RIK KK KK KEK KRKKK KEKE KKREK KKK RRR RRERRRKEKAKR EKER ERKRKRKRKEKRKRKEKRKKEKE 


DO WHEE ieee 
Store epaceyey to BEGDATE,ENDDATE 
Store space(50) to CTITLE 
Store te. esl eae 
Store space(16) to STOCKN,MREQNO 
Store 0 to MLEADT ,MOTY,RDEM,/ORDERC ,SCOST SERVE FRATE. KSolD eon. 
Store 0 to DATESAL, LEADEEURIOToaAT= MEEADTY 
Store 2 TOR 
CLEAR 
Text 


THIS SYSTEM USES THE FIXED ORDER SIZE SYSTEM WITH PROBATE ie 
MODEL. THE FIXED ORDER SIZE SYSTEM IS COMPLETELY DEPINED Re ee 
ORDER QUANTITY Q| AND REORDER POINT B|. THE RISK OF STOCKOUT 
OCCURS AFTER REORDER POINT. TO GET Q|,B|, YOU HAVE TO DECIDE 
SERVICE LEVEL, OR STOCKOUT COST PER UNIT. THIS SYSTEM Asstiee 
BACKORDER CASE WITH SERVICE LEVEL INSTEAD OF LOSTSALES CASE. 


Endtext 

@Q19, lone emer, s COG KenUmbe terme 

@ 21,12 SAY "Enter time period you want to; 
test ( - aa 

SET COLOR TO N/W 

@ Zl 4855nr “O1/0l 7s): 

G Z2aGsomone "12/3 87S 

SET IGOUGR 10 

@ 22750 SAY "Begin End date" 

@ 24,20 SAY "Leave BLANK any space to Exit " 
@ 1,10 Tous oo sPouBLE 

@ 4,1 TO 23,77 DOUBLE 

: 2,15 SAY "A N A PY S22 S cf”) 1. SAS Aer een. 


3,62 SAY “Today ae a er ae ae 
@ 19736, en) si1Ge Fe 99 = ooo eee 
READ 
IF SIOGKN=——* 
EXE 
Bt ee 


@ 21,48 GET BEGDATE PLrGT 160/30) 230 
. mee GET ENDDALE Fiera ios, 22 32. 
ea 
If Begdate=""" .OR. Enddate=""" .OR. Stockn=" " 
Exit 


ie 


Store eeeoe HeeS to Beqdate 


Store Ctod(Enddate) to Enddate 
If BEGDATE>=ENDDATE 
Clear 


@15, 25 SAY "The End date MUST be later than the begin date' 
erly, 3@ SAY "Press ENTER to redo..... 
Walt el 
Loop 
Endif 


Do ANLEADT 
If Rdem<=0 
Clear 


Do ANEOQ 


ENDDO 
CLOSE DATABASES 
RELEASE ALL 


STOCKN=SPACE(16) 
RETURN 


b. ANLEADT 


KARRKAKKKKKKKKKRKAKKKKKKRKKKKKKAKAKKRKKRKRAAKKKRKKKARKKKRKKKAKAKRKKKRKKKKKKKKKAKRKKKKAAK 


RAKKAKKAKAKKAKKKAKKAKKK 


RARE KAKAKAKAKARAKKAKKRKKKAKAKKRKAAKKAK AR 


PE iar 
KARKAKKAKRKRAKKRKKAKKRRKKKKRKKKRKRKKKKKKRRKKARKAKRKRAKRKRARRKKKKRRKKKKKAKKKKKKAKKKKKK AK 


HO HO OS 


Module name....: Leadt.Prg 

EMME MOL. sce ccs es Eo Tae 

Ns ss ct ce ee? Peed 38 

PEDOSC..sccs se? a culate Lead time to Supply for given Item 
mailed by......: Analysis.Prg 


Modules called : Proc.prg 
Varliales used..: 


Public.: Mleadt,Mqty,Mzulu 


IOGal.< : 
PoP KIKI KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RIKKI KIRK KKK KKK RK KK KK KKK 
Set 


procedure to ANPROC 


Seas CONSOLE OFF 


Clear 
Gel0, 15 to 14,65 
@11,25 Say " Please do NOT touch" 


fm. cay “ Working....... 
Select B 
Use PROPERTY index snproper 
Select A 


Use master index sctmast 


Copy to RLMAST for type="RL" .AND. (Date>=Begdate .AND. Date<=Enddate) ; 
Copy to ILMAST for type=""IL" .AND. (Date>=Begdate .AND. Date<=Enddate) ; 


.AND. sn=stockn 


AND. sn=stockn 


Sac 8 Bena Sure to DEM fields qty,type,date 


ree SEM 
Select C 


Use ILMAST 

Paidex Or REQNO to SRIL 
Use ILMAST index SRIL 
Select D 

Use RLMAST 

Index on REQNO to SRRL 
Use RLMAST index SRRL 
Select C 

Pf EOf() 


mei 7 ) 
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* 


* 
* 
x 
* 
* 
* 
* 
* 
* 


@15, 25 SAY "You receive nothing from LSC between! 


@16, 30 SAY PECE Be aaaeS) © aM HpEOC (Enda 
‘ De 1 29 SAY "Press ENTER to return. 
al 


Close databases 

Erase RLMAST.DBF 

Erase SRRL.NDX& 

Erase ILMAST.DBF 

Erase SRIL.NDX 

Erase DEM.DBF 

Release all 

Set console on 

Return 
Endif 
7. ake To calculate the lead time of an item 
Go top 
Do while .NOT. Eof() 

Store reqno to TiReeie 

Store date to ILDATE 

Select D 

Seek Mreq 

Le Eof() OR. Bof() 

Select C 
Skip 


store Date to RLDATE 
Do while reqno=mreqno .AND. .NOT. Eof() 
N=N+1 
Datebal=(c->Date) - (Date) 
Totdate=Totdate+Datebal 
If rldate>date 
Store Date to Rldate 
Endif 
Skip 
Enddo 
Endif 
Select A 
Sum ay for sn=stockn .AND. ee e=""RD"" .AND.; 
(date>=RLDATE .AND. date<= rrpat ) to leaddem 
Select E 
Append blank 
Replace qty with leaddem 
Replace type with "LD" 
Replace date with Rldate 
Store 0 to leaddem 
Select C 
Skip 
Enddo 
Store Totdate/N to Mleadtl 
store Mleadt1l/30 to mleadt 
Store 0 to N 


* 4, ee To get Annual average demand (1 year moving average) 


A 
Store ''date>=begdate .AND. date<=enddate" to Condx 
Sum qty for sn=Stockn.AND. Eypen DE ages &condx to Rdem 
Store enddate-begdate to to 
Store Rdem*365/totd to Rdem 
Store Bonne eo ree 0) to Nmax 
: sic eee Romget standard deviation of annual demand from monthly demand 
Oo teD 

Store begdate to mdate 
Store TERS =stockn.and. ype RD yom c Glad | 
Store ''(date>=mdate+30*N .AND. date<=mdate+30*(N+1))"" to cond2 
Do while N < Nmax 

Sum qty for &condl .AND. &cond2 to mqty 

Select 6 

Append blank 
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Replace ae with mqt 
a 


e with Adetess0en 


Replace 

Replace type with "DM" 

N= N+l 

Select A 

pore 0 to mqty 
Enddo 
see Cf E h i f { 1 
Dorota wit Ey Ss  rvoe= DMM! 
Close Pegaueee, a 
Erase RLMAST.DBF 


Erase 
Erase 
Erase 
Erase 


SRE Go. NON 
PEUAS® -DEF 
SRIL.NDA 
DEM. DBE 


SepecONSOLE ON 
See ROCEDURE TO 
RETURN 


c. ANEOQ 


KREEKKEKKKKAKRKKEKRKRKKKRKRRKRKRRRKRKRKRKEKRRRRKRRERRRKRKRKRRRKEKRRRKRRRRKRRKKKRKRRERKKKKKKKKAKE 


KREKKKKKRKRKEREREKREKREK 


KREKEKEKRKEKRKRKRKEKRKKKREKRRKEKRKERRARKKKKKKER 


NEOQ.P 
KKKKKKKARK KARR KARR KKKKKRKKRKKKRRRKKERKRRRRRRRERAKERERARRKKKKKKK KKK KKK KR 


* Module name....: ANEOQ. sped 

BMPENOL....05.e0: Park, ong 

meepate..... we oCl 19 if 

See UroOSe........: TO calculate Economic Order Quantity, Reoder 
* Point, Safety level, and Requisition Object 
amealed DY......: ANALYSIS. prg 

* Modules called : None 

* Variales used..: 

- EMblic.: SID, TODAY, 

E geal. coe. cob. RDEM.MECFZ.MIZ.MSERVL.ORDERG.FRATE 


RAEKRKKKKKKKKKAKKAKKKKKRKRREKRKEKRKKRKRKKRKRRKEKRKRKRRKEKRKRKRKRRKRKRKKRRRREKRKRRKRKEKRKRRKKKKAAKER 


Set decimals to 5 
Berect ¢ 
Use ASL index INASL 


Select B 

Use NORMAL 

Select A 

Use PROPERTY index ppbeoper 

Semerelation to SN into 

Do while 
peek stockn 
Store "PRESENT" to title 


Clear 
Seore "Is this record right?(Y/N):" to ctitle 
Store Ltrim(str(ASL->ROP)) to Mrop 
Store Ltrim(str Ee to Msl 
Store Ltrim(str(ASL->RO to Mro 
Store Ltrim(str(ASL->0OST)) to Most 
Do while .T. 
Set format to EOQ 
Read 


If check = "y'! 


Set format to 
Exar 


Endif 


Enddo 
k 


ae Holding cost 


If Frate=0 
Store 15.0 to Frate 


Endif 


15 


* 


* 
* 
* 
* 
* 
* 
* 
x 
* 
* 
* 


Store (Frace/ 100 ermeveisi >unitcost togmodide 
Weis saisils sees ordering cos 
= Orderc = 0 
Score 20 Uererercenc 
Eager 
Dowease 
Case (CSL="Y" .AND. CSC="Y").OR.(CSL="N" (AND. CSC="n 


e Tn 

@10, 15 clear to 16765 

Geto 15 eto 4 oS 

G12, 205SAY "You have to select ONE of Choices" 
@ 15, 20s54ay "Press ENTERUtO Gedo. 

Store 0 to Frate,Orderc,Scost,Servl 

Store UNVatoe Cseeesi! 

Store "xX" to check 

Wait ih | 

Loop 


a ee ee a Holding cost rate 
Case ae 2AND..(“CSCaUy" 
Sqrt(2endem*orderc/Holde 
eines =Holdc*Q0/(scost*Rdem 
Select B 
Locate fbr sigfofb <=msigfofb 
SeEore: [25 :2Otiez 
Store Eofz to meofz 


Case CSL="Y" (AND? GsGea 

If Servl=0 
Store 85.000 to servl 
Endif 
Mee servl1/100 to mServl 
sHoise*9a/(mservi*Rden) 
Se ol OPS eV ney 
Sieone See to mpofs 
Sane B 
Locate For pofs<=mpofs 
Store iz tomes 
Store Eofz to meofz 
Endcase 


store © to BOO NOST MARGE Mor URC 
Store Sqrt (2*Rdem* (Orderc+Scost*Meofz) ) /Holdc to E0Q 
Scone Mleacel Eounost 
Store Rdem*Mleadt/12 + BE dae to Mrop 
Store Mrop - (Rdem*Mleadt/12) to Msl 
Store ECO Op eeor nae 
Store “Calculated to title 
eee "Do you want to change the old records with this?:" to ctitle 
Solecu © 
Store Ltrim(str({MROP)) to Mrop 
Grebe tr lint sity a to Msl 
score Ltrim( str ine EO MLO 
Store Ltrim(str(MOST)) to Most 
Seek stockn 
Set format to EOQ 
Read 
If check ="y" 

Set format to 

Replace RO with Val(Mro) 

Replace Rop with Val(Mrop) 

Replace SL with Val(Msl) 

Replace OST with Val(Most) 

Rep ce date with today 

sit 


Set format to 
Store 0 to Frate,Orderc,Scost,Servl 
store “MN” to cSG-esh 
Store "X" to check 
Endif 
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Enddo 

Close databases 
Set decimals to 
Return 


d. ANPROC 


KRREEEKRKEKKKKKKRKEKAKKKKKKKKRKKARKKKRKKRRRREKRKEKKRRKRRKRKRRKRKRKRKEKRKRRKRKRKRKRKRKRRKRRRKEKKRKKAKK 
RAEEKKKAKKKKKRKKKKRKRKEER PROC.PRG KRKRAEKKKRKKREKRAKKEKKRAKKRKKKEKRRKRRERKERKARKAKK 
RARAEKKKRKAKKKKKKRRKKKEAKRKKRKREKRERKRRKRKRRRRKKRRARKRKRARKRRRKRKRKKKRKRKEKRREKRRKKRRERRKRRRKRKEKKR 


Bepocule name....: Proc.prg 

MMEPUIOL «6c cee oe : Park, Taeyon 

Peete... .....-..%3 Sept 30. 198 

GeeeurOSe........ : Procedures for calaulating statics 
* Variales used..: 

f Public.: FieldName 


eau. Max, Min,Std,V 


PROCEDURE Max 
PARAMETERS fieldname,Condition 
Ser FILTER TO &Condition 
GO TOP 
Max = -99999 
DO While .NOT. EOF() 
IF &FieldName > Max 
Max = & FieldName 
Biche e 
Skip 
ENDDO 
SET FILTER TO 
RETURN 


PROCEDURE Min | 
PARAMETERS FieldName,Condition 
SET FILTER TO &Condition 

GO TOP 
Min = 99999 
DO While .NOT. EOF() 
IF &FieldName < Min 
Min = &FieldName 
Endif 


Ski 
ENDDO 
SET FILTER TO 
RETURN 


PROCEDURE Var _ 
PARAMETERS FieldName,Condition 
SET FILTER TO &Condition 
GO TOP 
COUNT TO N 
Sunt aFieldName? TOT TOL 
SUM( &FieldName 2) TO TOTsq 
Correction = TOT . 
Var = mots - Correction)/(n-1) 
SEROPILGER 10 
RETURN 


PROCEDURE Std 
PARAMETERS FieldName,Condition 
Seer ILIER TO &Condition 
Ger LOr 
COUNT TO 
Swill iF ieldName) ICE IESE E 
SUM(&FieldName 2). TOMmiGIns 
Correction = TOT . 
Variance = (TOTsq - Correction)/(n-1) 
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Lo 
NO ac re ae a RL Aaa KAA KOA KE 


* 


* 
* 
* 
* 
* 
* 
* 


Std = SORT(Variance) 
Sil FILTER To 
RETURN 


PROCEDURE Mzulu 
PARANETER XDATE 
STORE (CEO TEESE nS ICEOR eRe touaneaa 
STORE (CTOD ("'&XDATE® ) = CTOD(Ziday )Fl) sie 22nn7 
STORE SUBSTR("&XDATE" ,8)+SUBSTR(STR(1000000+Z2day),8,3) to MZULU 
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5. MANAGEFL 
a. MANAGEFL MENU 


KAKKRAKKRKAKRKREKKAKRKKARKAKKRKKRKARKRKRKRKARRKRRRKRKRRRRKRRK RAR KRKRKRKKAKKAKKKKRKKRRRRRAARKRAK 


KKKKKKKARKKKKRK KKK MANAGEFL.PRG KKAKKKKAAKKARKKAAKKK RRR KA RR KK A 
KKKAKKARAKKKAKKKKKKAKKKKAKRKRARA KARA RRA RR KRKKRARE RR KARR ARR K A KR RRR RRR RK 
* Program.: Managefl.PRG as 
* Author..: PARK, TAEYONG * 
Mebate....: AUG 21, 1987 . 
Bmuiaitice..: Copyright 1987 i‘ 
Peloces...: Menu file for file management system, called by pmain.prg n 
KAKKRKKAKKAKKKRKRAKAK RK RAKRKRR RAK AKA RAKRKKAKA KR ARAARARAKKARR KKK RAKRKRRK 
Do while .T. 

eneck = "Xx" 

CLEAR "i 


mr 15 TO 3.55 double 
Gea | TO 2377 
Spee lom2] , 37 
Seoeno, 7420 
6,5 SAY SPACE(15) 
eo 4) TO Mz 7S 
5.42 TO) goo 
6,43 SAY SPACE(16) 
44) Te. 21.75 
pono 2 TO 15.59 
14,43 SAY SPACE(16) 
Poe ome mer eotmumo £ fo 1 Je ss” 
,6 SAY " Edit files" 
,44 SAY " Addition" 
14,44 SAY "Information" 
‘7 eSAre or. fo ada Customer an 
9,47 SAY "2.To add ery SN)= 
10047 Say 3.To add ASL (SN)! 
9,7 SAY "4.To change Customer (CI)" 
ij) Saweuononchange Properey (SN) 
i3,/ Sav owner change ASL (SN)" 
foegmony "7 .Vocenange Master (SNBRE NO)" 
iiewerony Solo change Batch (SNtREONO)" 
Z20F 7] poe OUe ry, On Eile s! 
Poy Gime onr lOdaye is ss... 
16,60 SAY today 
18,43 SAY "Stock number : " 
955° Saye (Or/And)" 
20,43 a "Customer code ; '' 
ET COLOR To N/W | 
Memo one ocockn pict "9999-99-999-9999"" 
ZUPSooeSAY mCl pict 19999" 
so. COLOR TO 
swore." TO SEL 
@ 22,58 SAY SEL 
@ 22, 8 SAY "Enter Selection (1 - 9, or 0 to go to mainmenu) : :|["! 


OVOvbo 


MD NDADAIODAIAMIDOAI IAI IAI IAI AIAIYIAAIAVDVDAMOA ODDO 
Co 


ee c0).8:* ...The following lines are for select loop 
1=0 
DO WHILE i=0 
i=INKEY() 
Ga22, Sogcny | 
IF UPPER(CHR(i) )$"0123456789"" 
@ 22,58 SAY CHR(I) 
Exo. 
ENDIF 
1=0 
ENDDO 
Domcase 


Case CHR(I) = '1' 
(Giglseoo SAY “AXKAK@= kk <KKK= KAKA! 
Cuero? get mel Pict U9900. 
READ 


9 


DO ADDCUST 
Case CHR(I) = '2' 


@ 18,59 get 
@ 20,59 SAY 
READ 
DO ADDPROP 
Case CHR(I) = '3! 
@ 18,59 get 
@ 20,59 Say 
READ 
DO ADDASL 
Case CHR(I) = '4'! 
@ 18,59 SAY 
@ 20,59 get 
READ 
PGC EDITCUST 
Case CHR(I) = '5'! 
@ 18,59 get 
@ 20,59 Say 
READ 


DO EDITPROP 
Case CHR(I) = '6! 


@18,59 get 
@ 20,59 Say 
READ 

DO EDITASL 


Case CHR(I) = '7'! 


stockn pict '"9999-99-999-9999' 
De 


stockn pict '9999-99-999-9999" 
ns 


"URXKXKK= KX- KKK RAKK" 
Mel plete soso. 


stockn pict "9999-99-999-9999"! 
URW 


stockn pict ''9999-99-999-9999" 
"AXKK" 


@ 18 (42 clear touZ0— 6s 


@ 18,43 SAY "Stock number : " get stockn pict; 
9999-39-22 2 
@19,43 Say "Customer code : " get mci Beas FS 9 oul 
Cone say "Transaction type * get mtype "pick. 
DO EDIIMAS I 

Case CHR(I) = '8! 
@ 18,42 clear to 20, 65 
@ 18,43 SAY "Stock number : " get stockn pict; 
"9999=99-999=923-0 
@ 19,43 Say "Customer code : " get mci paee Oooo 
@ eee Say "Transaction type : " get mtype pict "!!'"! 


READ 
DOSEDITBAL 
Case CHR(I) = '9! 


Do Manage 
CHECKes "1" 
CASE I=27 .OR. CHR(I) = '0' 
2 Chr?) 
RETURN 
OTHERWISE 
7 GHRA 7) 
ENDCASE 
ENDDO 
CLOSE DATABASES 
RETURN 
KascweceasieSeoee sss oeae 
b. ADDASL 


KKKKKKKKKKKKKRKAKEKKKKKKEKKKKRKEKKEKRKKKEKAKKKRKKKEKKRKEKKEKREKRKAKKRKKKKRKRKERERKKKKKKRKKE 


KREEKKKEKKRKKRKRKKKKRKKKERK ADDASL.PRG KAEAKKKKEKKKKKRKEKRKKKEKKKARRKKKKAREKR 
KREKKARKKEKRKEKKEKRKKRKEKKKRKEKKEKRKKRKKKEKRKEKRAKREKREKRKEKRKEKRKRKEKRKRKRKKRRKKRKRKKKKRKKKRKEKKKRKRKKRKAKEKKKK 
x Module name....: ADDASLoprg * 
* AUthOr.s. 000s ¢. 0 Park maeverm “ 
ADS t Och. anes ecco : Aug 25. 198 | % 
~ PP ULDOSE aac ...: Add Authorized Storage List item(ASL) into a 
_ ASL file by manual x 
wa ed soy erat .: MANAGEFL.prg x 
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* Modules called : None . 


; Variales used. s 
Public.: CHECK. x 
Re ik LRAT PER AAKAR KALE 
imemstockn =" 
Return 
Bee 
Sele A 
Use ASL INDEX INasl 
select B 
Use Beech ty INDEX Snproper 
Select 
a set BR loop for adding new ASL. 
ae ia as dcheck, fcheck 
Do whi 
Do while aes 
lear 
: SSRIS check to see 1f stock number already exists. 
Seek StockN 
Do case 
Case found() 
@ 15,10 say SN + " is Already exist in ASL file !'"' 
s 17, 20 say " Do you want to change ? " get check 
ea 
Check =upper (check) 
It cheer iz 
Clear 
Set format to Editasl 
Read 
Set format to 
Endif 
Case .not. found() 
Clear 
Append blank 
Replace SN with StockN 
Replace date with date() 
Do -whiae....ke 
Set format to ASL 
Read 
If Upper(dcheck) = "yy" 
et format to 
Exit 
Endif 
Enddo 
Endcase 
store "X'' to tcheck 
Clear 
@ 2 say ' Do you want to check property file?" get tcheck 
Rea 
Tcheck = pS. 
If Tcheck 
Select B 
Clear 
Seek StockN 
Do case 


Case found() 
store "XK" to tceheck 
@ 15,15 say StockN + " is already exist in BDOReE LY fa Let 
@ 17, 20 say " Do you want to change ? " get tc 
Rea 
Tcheck = u er tcheck) 
If tcheck = ae za 
Clear 
Set format to Editprop 
Edit recno() 
Set format to 
EaaGiit 


Dloop me 
Case .NOT. found() 


14] 


Clear 
Append blank 
Replace SN with StockN 
Replace date with date() 
Do while .T. 
Set format to prop 
Read 
fcheck = upper(fcheck) 
If fcheck = "yy"! 
Replace tvalue with unitcost * onhand 
Secrcormae. eo 


Dloop = .F. 
Eoout 
Endif 
Enddo 
Endcase 
Endif 
Dloop = .F 
Enddo 
Close all 


Store space(16) to stockn 
Release all 


Return 
Kew enn enn seen n-ne e- * EOF Addasl.prg *ecce----- cece ee ene ------- x 
c. ADDPROP 

KARKKKRKKKRRRKKKRKKKKKKKKKRKKKKKKKKREKKRAARKKKKKKKKAKKKKKKAKKKKKKAKKKKKKE 
kkk KKKKKRKKKKKKE ADDPROP.PRG KAKKKRKKKKKKKKKRKKKKKKKKKKKKE 
KRKRKRKKKKEKKKKKKEKEKEREKKREKKRERKKEKRKRRRKKRKAKKAKKREKKEKKEKKREKAKEKKKKKEE 
* Module name....: ADDPROP.prg x 
* RUthor i. <cseens Se ug ae eemons} * 
KX Dates o.al ee : Aug 20. 1987 . * 
x Purpose........: Add new properties into property file - 
* Called by......: MANAGEFL.prg a 
* Modules called : None x 
* Variales used..: x 
x Public.: TODAY x 
KREKKKKKKKKKKRREKRKEKK KR KEKKKKKK KK KKKRRAKAKRKKKKREKKKKKRRKKKKRKKKKRRKKKK 
If StockN =" i" 

Return 
Endif 
Clear 
Select A 
Use ASL INDEX INasl 
Select B 


Use property INDEX Snproper 


Today = date() 

check = "xX" 

stock = .T. 

Do while Stock 
clear 


Seek StockN 
Store lieeo tcheck 
Do case 
Case found() 
clear 
store "x" to tcheex . 
@ 15,10 say StockN + " is already exist in Pree e ney filet 
@ a 20 Say "Do you want to change it NOW ?" get tcheck 
Rea 
Tcheck = upper(tcheck) 
If tcheck = "N'! 
clear 
SE NSONE SS Aa 
Eee 


142 


Endif 

Set format to Editprop 

Bawe recno 

Replace tvalue with unitcost * onhand 
Sek format co 


Poole 
Case .NOT. found( 
Append blan 
Replace SN with StockN 
Replace date with date() 
Do while .T. 
Set format to prop 
Rene k = fcheck) 
chec upper(fchec 
ee egneck © a oa 
lace ne Witheunrecost *sonhand 
format to 


SEOCK (oul El - 
Exit 
Endif 
Enddo 
Endcase 
clear 


store "X' to acheck 
: Bo Zeon YY wee ems) " to stockN + 'OASLertem 2" get acheck 
ea 
Acheck = u e (acheck) 
If acheck = ae 

Select A 

Seek stockN 

Store #x" to dcheck 

Do case 

Case found() 
@ 20,10 say SN + " is Already exist !, 
Do you want to change 2 get check 


Read 
check =upper (check) 
hescheck, =. Uy! 


Set format co EDETASE 
Edit Recno() 
Set format to 
Exe 
Enda 
Case .not. found( 
Append blan 
Replace SN with StockN 
Replace date with date() 
Do while .T. 
Set format to ASL 
Read 
Dcheck = Bee g ey ccsck) 
If dcheck 
Se pornat to 
EXILE 
Endif 
Enddo 
Endcase 
End1 
Enddo 
Close all 
Store space(16) to stockn 
Release all 
Return 
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d. ADDCUST 


RAEKEKKKAKKRKKEKKEKKKKEKRKEKKKKKAKKRKKKKRKKKARKRK KKK KARR KR KR KKRRKRKKRAKKKKKRKRAKKKKKKE 


KERKKKRKKRARKK RAK KK ADDCUST.PRG KR RK KK RR RK RK RK KR RK RRR RAR IK 
KREKEKKKKRAKRERERKREKKKEKKRKKKKKKKA KERR RRRKRKKKRKKKKEKEKRKRRRREKKRKKKKRKRRKEKKEREKKE 
* Module name....: ADDCUST.prg * 
* Author........ semper) Padevong * 
® Dates. sce 6 e56 v emer Ul clues orem oy * 
* PULPOSE...s+s0++? AGG CUSEOMer TNeOmCucEOMmelmemne * 
x Called by.....0: el Gere pro 7 
* Modules called : None * 
REKREKREKRRKKRR RRR RRR KERR RKREKREKRRRKRKRREKREKREKREKRKKEKRKRKRKREKEKKERKRKKRRKRKKEKRKEKREKRKKK 


Use Customer index Clicust 
Cust= . 
Store Wyn to Dcheck 
Do while Cust 
-=--== check proposed customer code 


aa Mei 
Do case 
Case Mei =." : 
Clear 
Cust = .F. 


Case found() 
@ 10, 15eeleareton! 5 7o5 
@ 10, [Shor loees 
@ 12,20 say "Customer code " + Mci + " " ae ady exists !"! 
@ 13,27 Say "Press any key to return. : 
Ee chr(7) 
Mci = space (4) 
Wal tat! 
Case .not. Soe 
Append blan 
Replace CI with mci 
Replace date with date() 


Do while = 7- 
Set format to cust 
Read 


If dcheck = "y" 
Set format to 
Replace fundoh with fund - expend 
Mci = space(¢4) 
t 


Ex 
eh?) 
Endif 
Enddo 
Endcase 
Enddo 
J EQlUcCemME ype tO mtypel 
Le ee eS w 
Recian 
Ena ie 
Close all 
Release all 
Return 
el a ne x EOF addcust.iprg *“=====— =e ae 
e. EDITASL 
FI I IKI KKK KK RK KKK RRR KK KR RIK KR RR KKK KEK KKK KERR KAKA KAKA KKK KAR KER 
KEEAEKKAEKKEKKKRKKKKKKK EDITASL.PRG KKK KKK KK KKK KKK KKK KKKKKAEKK 


FI I I I KI KKK RK IKK II RK IR ROR IR RK RAI RR FR RR KR I FOR RRR RR OR RI OK 


Module name....: EDITASL.prg 

BWEHMOL ..4:5:.<75 ree nee anes ong 

Didi seo 46 we aes o eaene 1987 

PWG DO Se sues ac: ona pe eaetecee or change) contents of entry 


+ > FF 
+ + FF 
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x Of ASL five. * 


Peealled by......: MANAGEFL.prg * 
* Modules called : ASL.£fmt * 
KIKKRKKEKKKKEKER ERE KER ERE KKK KARE KKERRAKKRKRKKKKERKERERKEKRKKKK KK KAR RRR KR KK 
Use ASL index INASL 

Clear 

More = .T 


Do while More 
Seek STOCKN 
Do case 
Case STOCKN = '! !! 
More = .F. 


Case found() 
Soeecoumac CO ee LIASL 
Edit recno( 
Set format to 


Store "Y' -to check 
: Poy ZOMSay we aecm Marked records NeWman(Y/N)" get check pict "!" 
ea 


Lev eneck =. Vy! 
Set talk on 
Pack 
Set talk off 
Stockn = space(16) 
more = .F. 

Endif 


Case .NOT. found() 
c 15720 Bey 'No such STOCK NUMBER code in the file !"' 
ore = .F. 
Stockn = space(16) 
Walt 
Endcase 
Enddo (while more) 
Close all 
Release all 


f. EDITBAT 


KARKKAEKKAREKKKEKKRAKKEKRKKEKKEKRKKKEKKREKRKRKEKKKRKKRKRKEKRKEKRKREKRKEKKKRKREKRKRKKKKKKKKKRARAKK 
KREKKKEKRKAKAKKKKAKRKE DEITBAT.PRG KREKEKKKEKKKEKKRKEKKKEKKKKEKRAKKAKKKKKKKKKK 
KEKREKRKEKRAKRKAKKEKKRAKKEKREKRKEKKKAKAREKAEKAEKREKRERKAKREKKAKRRERERAKKKKKKAAKKAKKKKR KK KKK 


Module name....: EDITBAT.prg x 
PU@NOre.s.....0.:8rPark, Taeyong = 
tei .-..2 AUG 28. 1987 a 
PMEDOSE........: Edit»Batch file a 
Called by......: MANAGEFL.prg . 
Modules called : EDITBAT. fmt * 
Variales used..: x 
Public.: STOCKN, TODAY ,MVNC : 

* 


+ + FOF OF OF OF OF OF 


iboCcalL.«: 
KEKE KREKKKKKEKREKKKKRKEKKERKKKKKKKRKKKKRKKKKKKEKKKEKKREKKKRKEKERAEKEKRKKKKKKSE 


Use Batch index SNCIBAT 
elear 
More = .T. 
Do while More 
Store space(16) to MVNC . 
@ 15,10 Say "Enter Voucher number 1f you know : " get mvne 


Read 
Do case 
Gase sreeknN = " " ,AND. Mvnc = " * 
Clear 
Close all 


eS) 


Return 


Case stockn # '") AND. Mvne — sae 
Search = stockn 
Case stockn # """ cAND We iivne Fo 
Search = stockn + upper(mvnc) 
Case Sstockn =e eon. livne # 
Search = upper(Mvnc) 
Endcase 
Seek search 
be found. 


Sec format to EDITBAT 
Edit recno() 
Set format to 


Store Wy) to Cheek 
@15, 20 Say "Pack marked records NOW ? (Y/N)" get check pict "!" 


Read 

If check = 79") 
Set talk on 
Pack 


S@tmtalk Ofte 
Stockn = space(16) 
more = .F. 

Endif 


e 
@ 15,10 Say "No such STOCK NUMBER or Voucher Number in the file !"' 
More = .F. 

Stockn = space(16) 

Wait 


Close databases 
Release all 
Return 


g. EDITCUST 


KAEKKKKKKKKKKRKKRKRKKKRKRRKRKRKARKRRRRKRERKEKRRKRKKEKRKRKKRKKRKKRKRKKRKRKKRKRKRKRRRRRKRRRKRKKRKKKKKK 


KREKKKKKRKKKKKKKKKAK EDITCUST.PRG KRAKKKKAKKKEKKEKKKKKRAKKKKAKKKK RK 
KARKKKKKKKKRAKKKAK KKK RRR KK RRR ERR REE RRRERR REE RRKRKERERREREREREKERKKKRKKKREK 
* Module names.28 Bo meus ue Bed 7 
* DAG ls eae eee ae Tae * 
& Date esses ee nUGE Zoe 87 a 
KO RPUYODOSE. «1. ome ae Customer record from customer file * 
* Called by......: MANAGEFL. Pe s 
* Modules called : EDITCUST. £m * 
* Variales used..: * 
* Local..: MCI * 
KERR KKKKKKRR ER EKKKRK RRR KKK KK RRR RR KK KK RRR RKKK KKK KARA KKKKAKRKRRKAKKKKKKK KKK 


Use CUSTOMER index CICUST 
Clear 
More = .T. 
Do while More 

Seek Mci 

Do case 

Case mci = " " 
More = .F. 


Case found() 
set formal) COmmDERGuST 
Edit recno 
Set format to 


store “Y" to cheek . 
@ 15, 20 Say "Pack marked records NOW ? (Y/N)" get check pict "!" 
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Read 


Peweneck = “"Y" 
Set talk on 
Pack 
Set talk off 
Mci = Speco) 


Case .NOT. found() | . 
Gmerco Say ‘No siich Customer Code in file !" 
More = .F. 
Mc1 = space(4) 
Wait 


Endcase 
Enddo (while more) 
Close all 
Release all 
Return 

5 55 5 = SSS 29 S995 SS Bor EDITCUSt.prq *---~-----<<<<-<<~32er en n% 
h. EDITMAST 

KAKKKKKKRKRKKRKKKK KKK RKKREKKKRKRKRKKKRERKERKKEKKRKEKRRKKRKEKRKKREKKRKEKRKKKRKKK 
KEKKKKKKKKKKKKAKKEK EDITMAST .PRG KAKA AKKKKKKKAKKRRKKKARK KK RAR KKK 
KEKEKKKKKERKKKKKRKKKRKRKEKKRRKKRKRKEKRRERERKEREREKKRRKEKKRRRKRRRKKRRREKRKKRRKEK 
* Module name....: EDITMAST.prg x 
BMPPUENOY.. ccc ee eet Fea Taeyong x 
Gupeetee......5....: Aug 28. 1987 * 
BPEUMIT DOSE... ssc ce? Baie master file * 
Geeaited by......: MANAGEFL.pr - 
* Modules oar : EDITMAST.f£m * 
* Variales used..: * 
x OGal..«: SIOCKN MCI * 
eS LOCK MCT ec cknnunntanninnnnann’ 


Use MASTER index SCTMAST 
Clear 
moO to 15,62 — 
@11,30 Say "Warning!" 
let > Say "This process is not allowed to every person," 
@ ey 15 Say "' Enter password to continue." get mpass pict "1yti! 
Rea 
If pass <> mpass 
Close al 


a filter to SN=stockn .AND. ci=mc1l 

ear 

@ Bo. +0 Say "Enter the transaction type : " get mtype Pict "!!" 
Rea 


More = .T. 
Do while More 
Seek Eyre 
Do case 
Case STOCKN = " " 
More = .F. 


Case found() 
SeterormatetO EDITMAST 
Edit recno() 
Set format to 


Store "VY" to’check | 
@ aa 20 Say “Pack marked records NOW ? (Y/N)" get check pict "!" 
Rea 


Teechecr — "y" 
Set talk on 


147 


Pack 

Set talk@octt 

Mci = space(4) 
Stockn = gepae cee 


Case .NOT. found() | | 
@ 15,35 Say "No such STOCK NUMBER code in file !" 
More = .F. 
Soon = space(16) 
Wal 
Endcase 


Enddo (while more) 
Set filter ce 


Close all 
Release all 
Return 

a2 3 2 See eee See ae ee oa * Eof EDITMAST.prgq *errccoceserens ese ecasenskh 

1. EDITPROP 

FOR RR RRR RRR IR RI RR II TOR RRR RR IORI IR RRR ORR RRR RRA IA RA A 
RAEEKKKKKKKKAKAKAKKKK EDITPROP.PRG KRAEAEKRKRKEKKAKKRKARKKKKARKKKRKRKKRKRKRKRKKAKAKK 
KAKAKEK KEKE KKK EKER KKK KKK KEK KKKKRARKKK RE KKRKKKKREKKEKKRKKKKERKKKKEKKKKAKKKEKK 
x Module mame... BBRIIPROP pug x 
* “Au Chon sms sme Bates pias ong * 
Daten os aa. nt Ce mete 6 
AK PANES gay 45 we eit : Edet Scene file * 
x enniee DVin ec « ¢ MANAGERL (pir * 
* Modules called : EDITPROP. fm * 
* Variales used. 3 
* SheliaG. k 
* Local.) SIOCKNE Mer = 
FRR IK I IKK RK RI IK IKK KK KKK KR RK RR KR RK RIK RRR RR KR RK RRR RIK RRR RRR KR RR 


Use PROPERTY index SNPROPER 
Clear 
More. = <2 
Do while More 
Seek STOCKN 
Do case 
Case STOCKN = '! " 
More = .F. 


Case found() 
Set £Onmat to EDI TEROE 
Edit recno() 
Set format to 


Scones We co emeal: 
@15, 20 Say "Pack marked records NOW ? (Y/N)" get check pict "!" 


Read 

If check = "y" 
Set talk on 
Pack 


Set talk off 
Mci = space(4) 
STOCKN=SPACE (16) 
more = .F. 

Endif 


Case .NOT. found() . 
@ 15,35 Say "No such STOCK NUMBER code in file !" 


HOGG = aake. 
Mci = space(4) 
Wait 


Endcase 


148 


Enddo (while more) 
Close all 

Release all 
Return 


j. MANAGEQ 


RRR RAR RRA RRA RR RRR KAKA RK RK RR KAR RRR KARR RRR RAR KARR RIK KR RR IK RK RK RK RRR 
KRRKKKRAKRARKRAR KR KR MANAGEO. PRG FR IRR RR RRR RRR A IK 
KAR KKK RAR KR AR ARK RK RAR KI RAK ARK RK RK RK RK RK RK RR RRA RRR RRR RRR RAR AR AR RAK 


Module name....: MANAGEQ.PRG 

EMPNEOY? «5 sles «0 6 : Park, Taeyong 

Wee ....%....: OCT 28. 1987 
meeese..te..ae: CONSULT CONTENTS OF FILES 
malted by......: MANAGEFL.prg 


Meaules called : SETUP.FRI 
Panialeseused. . : 

BUDLIC. : 

Bical) STOCK i anel 


OF OF OF OF OOF 


Close databases 

Clear 

Set talk off 

set echo off 

Piee propert 

Index on Class to Clssprop 

Use peop egy index snproper,Clssprop 
Select 

Use ASL index inasl 


sewect A . 
Set relation to SN into B 
title = "Query on Stock number' 
Mok="y"! 
Store space(16) to stockn 
seore " "' to Mclass,Mconf 
Bo while .T. 
Clear 
@ 4,25 say title 
@ 8,15 Say "Options" 
@ 11,17 Say "1. Stock number" 
rete cay "2. Class" 
Gece say "3. All" 
@ 15,17 Say "4. Return to main menu" 
ml? ,15 Say "Enter Option: " 
@ 2,1 to 23,75 
Store "" to sel 
@ 17,29 Get sel 
1=0 
Do while 1i=0 
1=inke { 
Lf car $'1234" 
Exit 
Enidisg 
1=0 
Enddo 
eC 17, nee Beas Chr (i) 
If chr(i)="4 
EX 
Bnet 
Dovease 


Case chr(i)="1"' 
Gmbco oay “Enter stock number © 


Get Stockn pict "9999-99-999- 9999" 


Read 
Lfastockn=") 
peer?) 
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L 
RAEERKKEKKKEKKKKKRKRKKKEKRKKERKKKRKAKRKRKRKERKRARKRKRKRKEKRKKKEKRAKRKEKEKERREKKEAKKRRARKKEER 


* 


* 
x 
* 
x 
* 
x 
* 
* 
* 


Set filter to Sn='&Stockn'! 
Set Order to l 


Do setup 
caper form stockrpl 
Set filter tc 


Case chr(ij)="2" 
@ 12,36 Say "Enter Class Number:" Get Mclass pict "9" 
@ 13,38 Say "O| for class 10" 
Read 
lt Melass=" 
oe Ghinn7) 
Loop 
Bcene 
Set filter to Class='&Mclass' 
set Order \toe- 


Dorserus 
Bevo form stockrpl 
Set filter to 


Case ehr(i)="3" 
: pS eee Say "<= Is this your select(Y/N):" Get Mconf signe 
ea 


Tf Meonf="N" 
7. Chey» 


Eneare 
set Order “tore 
Do setup 
Report form stcenupl 
Otherwise 
Loop 
Endcase 
If Upper(Mok)="¥" 
et console on 
Set print off 
Set Order to l 


e 
@ 24,17 Say "Press any key to continue..." 
ied tet! 

Enadit 


Clear 
Enddo 
Close databases 
Release all 
Erase clssprop.ndx 
Store space(16) to stockn 
Clear 
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APPENDIX F 
SCREEN FORMAT 


l. TRANSACT 
a. BATCH 


RAREKKKEKKKKKRKERKRKRKRKKKKKRKKRKKRKKKKRRKKRKKKRKKKRKKRKKRKKKKRKKKKRK RK KR KRKKKKRKRAKRRK 
RRR KERR KKK KKKK Module name eee Batch. fmt RRR KKRKKK KERR KKK KRKKRKKKKR 
a RAAT HR RRR KKAURRARAKERE RRRKKERRKAKRRKRRAKKKRRARAKRRA ARR IKE 


11 SAY "Requset for issue’! 

SimoRY “TOdaY «<.+6 ss ut 

61 SAY today 

8 SAY "Requested From :" 

Z5 SAY CUSTOMER = >CDESE 

8 SAY Send To : The 7 ae Division! 
€ 


me 2, 

Caes , 

Ga 3 3 

ays, 

@ 5, 

ey 6, 

eee, 8 SAY " yes of transaction : quest No :'" 

eee, SS GET WMREONO PICT Tee TMG aoe -9999"! 

@ 9, 10 SAY "Request for Issue to Div (seus tomer 's)" 

Meiz, 18 SAY leeCee Number :!! 

mele, 32 GEI BATCH=>SN pict "9999-99-999-9999" 

@pia2 18 SAY "Description 

@14, 32 GET PROPER Y- >NM 

@ 16, 18 SAY Unit." 

@16, 32 GET PROPERTY- >UNIT 

@ié, 39 SAY "Price : 

@1i16, 47 GET PROPERTY->UNITCOST 

mo, 56 SAY "5" 

more, 18 SAY " uantity :'' 

moe, 32 GET BATCH->QTY 

fee, S0 Gay "Is this record correct ? " get batcheck pict "!t"' 

oer. 6s TO 3, 40 

@ 4, 4 TO 20. 70 

ce 5 TO 7, 69 

mero, 5 TO 10, 69 

ees, 38 TO 9, 38 

Keene wenn ee nee --- * EFof.batch. fmt *------------- 22-2222 ---------- * 

b. MAST 

KKK IKI RIK RIK KKK IKK IKK K IKE KKK EK K ARK ARE KK KKK KKKKKKEKKAKKKKRAK KK RA KA K 

KARKKKKAKKKKKKKEKK Module name. Mast. fmt AXKRAAKAAKARAAAKRAKKKAK AK 

ek AK AA RAR KAR AERARAEAKARAREARRKKAKEKKRARERRRAEKARHK AAR 
Z 9 SAY mtitle 


34 SAY "Request Number:!! 

oo) SC beeReCl@eerlLOCnURE ''9999!!-9999-=9999" 

WZ, 19 SAY “Stock Number:!! 

12, 32 GET MASTER->SN PICTURE '9999-99-999-9999"' 
14, 19 SAY "Description :" 

14, 32 GET PROPERIY->NM 

Mew 242 SAY "Unit :" 

16, 41 GET PROPERTY- >UNIT FUNCTION "!tAAA" PICTURE "XXXX" 
16, 19 SAY “pusnerey : 

18, 32 GET MASTER->OTY 

18, 50 SAY "Reusable? ;: !! 


SB 43 SAY "Today is. 

se 56 Sa eee y 

> 7 SA mhost + mcdescl 

6, 7 SAY “ "“+mecust + medesc2 

8, 6 SAY "Type of transaction : Voucher No :;'!! 
8, 48 GET V PICTURE "9999!!-9999-9999'"! 

a 6 SAY Mtypea 

a, 


MDODODDDDDD DD DODO @ a a a) 


ist 


18, 62 GET MASTER->Misc 

20, 19. SAY “Peice : 

20, 32 GET 9 PROPERTY—-UlieoeT 

23, 30 SAY "Is this recoqd@eon- ccm" cetezenec orc te. 
TO) 2g 
Lo a5 40 

5 1O were 


FDAODDDDADODD 
fp 


c. TURNIN 


REEKKRAEKKKKKKRKKRKRKRKKKKKRKRKRKRKRRKRKRKRKKREKRKRRKRK KKK RRR KKKRKEKRKKRRRKRKKRKRKRKK 
kak Kea RRR KRKaKK Screen format for Turnin rgram KREKKKKRRRKRKKRRKRRRRKKKERRE 
KKRRKKRKRKRRKRRRKRKEKKKRKEKEKKKRRKRRE KKK KKK KKKKKRRRKKRKKKAKR 


@ 2, 1] SAY “Request for turn-in! 

@ 3, 46 SSAaY i tecay ee. i 

@ 3, 58 SAY Today 

@ 5, 6 SAYSepreona.| 

@ 5S, 13 SAyeeiepesc 

Q@ 6, 8° SAY tog. 

@Q. 6G, 13 asey MCDESC2 

@ 8, 6 “SAY )"Dyee o£ trenseCreee =D) 

@ 9, 10 SAY “Request for sturn-1 Request No :!! 
@ 9, 52 GET )SAITCH--REONG PICTURE "9999!!-9999-9999"" 
@il, 21 SAY “Steck number =| 

@il11, 37 GET BATCH->SN PICTURE "9999-99-999-9999" 

@ 13, 217 5SAY WDeseripeion ee: 

@13, 37 GET PROPERIY=->NM 

Q 15 2216. "SAv Unt ee 

@ 15) 25] GEL SPROPERTY--UNIT. “PICTURE Wi coe 

@15, 37 SAY "Reuseable? ;"' 

@i5, 51 GET BATCH->MISC 

@ 1/16: 9SAY “eee. 

@ 177925 GET PROPERTY - oUNT TCO 

@ol/, 3/meoar Cuane me 

@17, 51 GET BATCH->QTY | 
@20, 34 SAY "Is this record correct 7?" Get Zecheckaptce 
QQ) siers (LO: ae 

@ 4, 4 T7019, 70 

Gan, wommelow 7 og 

@ 4, 36 TO 4, 36 

@ 4, 37 TO 4, 37 

Gal. oe 0-07-69 

(QNESis 7 108. 9. aay 

Reman een n nen c cree enccen- * Eof TURNIN. fmt *------e- cece erence cence e-- * 


d. CANCMAST 


KARA AKRKRARKRRKRKARKKER KR KKK KKK KKK KKRKRKRKKKRKKRKEKRKRKKRKKRKKKRKRKRKRKRKRKRKRKRKAKKRKKKRK 
KRREKKRKRKKKRRKKRKKKKSE Module name....: CANCMAST.FMT KRREKKAKRKKKRKARARKRRAARE 
KRAERERKKERRKKRKRRRRRRKRRERKKRKKRRERRRRKARRRRRRKRRRRKRKRKKRKRKRKRKKKRRRKRARKRRRRRKRKRRKRKKKEKRE 


@ 2, 9 SAY "Cancel Request for issue item! 
@ 3, 44 SAY "Today . '+Dtoc(date() )+"("+Zulut")" 
@ 6.525. “SAY <"See¢ number : 

@ 6, 40 SAY MASTER->SN 

@ 8, 25 SAY "Customer Code:'"! 

@ 8, 40 SAY MASTER=->CI 

@10, 24 SAY "Request number:" 

@10, 40 SAY MASTER=>REQNO 

@ 13, 13 Say rgueDeeey a 

@13, 24 SAY MASTER->OTY 

G13, 33 ) SAY “Price 

@13, 41 SAY MASTER->UNITCOST 
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fol. Bee cel aie. ("" 

, 58 SAY MASTER->DATE 

Peo2 Bea)" 

, 14 SAY "Is this record what you want to cancel?(Y/N)" ; 
Serechnecks pict '"!" 
meron. fO 3s, 40 
Pe seeross. 70 
mom tO oG. 70 


AMO@ OM@M@ ©] 


m, MANAGEFL 
a. ASL 


KRKKKRKKKKKKR KKK RK KR KK ARK ARK KKK KR RAK RR K KR AKER KAR KARA KAKA RRKKRRKERKKEKK 
KKKKKKKKKKKKKKKKKK Module name....: Emt KRKKAKKKKKKKKKRKKKRKKKKKKK 


Asl. 
KRKEKEKRKEKKEKKKKKKKKRKKKKRKE KERR KKK KER KKEKRKE KK RR KKKRKKRKKRKKRKE KKK RKEKEKKKKKKK 
mee, 6 SAY “Authorized storage list file" 


fms, 45 SAY "Today is ...... " get today 

ermo, 20 SAY “Stock number elt 

@ 6, 44 GET Stockn PICTURE '9999-99-999-9999"! 

@ 9, 20 SAY "Reorder Point at 

@ 9, 44 GET ASL->ROP 

@qgqgi, 20 SAY "BO SerY Level gt 

@ 11, 44 GET ASL->SL | — 

mrs, 20 SAY "Requisition Objective :" 

@ 13, 44 GET ASL->RO | | 

@16, 20 SAY "Order Shipping Time 2! 

@16, 44 GET ASL->0ST 

@16, 50 SAY "days" 

@18, 18 SAY "Resource control number :'! 

feo, 44° GET ASL=>RCN PICTURE "9999" 

feceee so pore" Is this record correct ? : " get dcheck pict "!" 
om: 5 TO 3, 40 

ay4, 4 TO 20, 70 

Keener eee nee ------ * Eof.Asl.fmt *-----c ec - n-ne nnn nnn nnn eee 


b. CUST 


KKEEKKEKKEKAKKKKKKRKKERKEKKKEKRKRKKRRKRKRKKRKRRKRRKRRKRRKEKKRKEKRRKRKKKRKRKKRKKKRKRKRAKEAKE 


fee Cust. fmt (CUSTOMER file screen format called by wie clip be eee ne 

KEKE KKKKKKKKKKKEKKKKKKEKKKKKKKKR KK KERR KK RKRKRKKR RRR KERR RKKRKRRKRKRKEKRKKKKEKKR 
Toe CUS COMer Bee 

AO OGAY 1S siess<00e. 

62 oar CUSTOMER=>DATE 

ime ony Customer Code" 

Ze oAy CUSTOMER=>Cl1 

47 SAY "Priority" 

57 GET CUSTOMER->PRIORITY 

Ze «Sey "Name" 

Zs, (GE “CUSTOMER=>CDESC 

19 SAY "Address" 

28 GET CUSTOMER->ADDRESS FUNCTION "S30"; 

"XXXXXXXXXXXXKKKKXKKKKXXXXKXXXXXXXKKXAKKRKKXXXXXXXKXKKXAAKXXKKXXKKKXK" 

Ze, Gee SCUSTOMER=>ZIPCODE 

oy (Say "Zio code” 

fe ssey "Fund :!! 

Zo eGet CUSTOMER=>FUND FICTURE "9999999.99" 

40 SAY "S$ Allowed!" 

wo /Gea — CUSTONMER=>EXPEND PICTURE ''9999999.99" 

40 SAY "S$ Expediture” 

22 SHY “sew nee eenwwwewrces------ ‘ 


lo N) 


FE 


DDADADAADD DWADADDAADAAMAM 


tb et bt Pe be ht 
~ ~ ~ ~ ~ ™ ~ ~ -}~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ 
as 
mm 
m 


OYIYNMNUNN GD OCOWWHDHAMAAW 


@ 23, 35 SAY "Is this record correct 2? " get dcheeiipacte 

Gi, 6 TO). 3840 

@ 4, = TO 20.770 

Ke ww ee wera wecrwencenn * Eof CUSTiEmt “<= 298322 - =~ ~~ -e 2 == 2-862 = = _ 
c. PROP 

KRAEKKRK KKK KR RRR RRR RRR KR RRR RRR RRR RRR RRR RRR RRR RRR RRR RRR RRR KR RRR RRR RR RKKHK 


RAEREKRKRRAKKRARRKKRKR ARR RRR R RRR KRKRR RR RAR RR KR KR KR RRR RRR RRR RRR RR RRR RR RR RR RKRKRRA 


, 2 «SAY Propertyaebcok. file! 

. GA -SRye “Todayi u 

, 62. Sax peaen 

, tle SAY VStOC hy nunbe ma. 

, 28 GET Stockn PICTURE "9999-99-999-9999'! 
Jae Soke Séerlalgio 

, 38 GET PROPERTY->SERIALNO 

, 88 GET PROPERTY->NM 

, 22 saw “esertoeten <~ 

;, 22 oer ™ Ord tees: 

, 38 GET PROPERTY->UNIT 

, 46 SAY "Class :"' 

, 54 GET PROPERTY->CLASS PICTURE "99'! 
, 25 SAY “22 0On hand 

, o8 (GE PROPERTY ~ >ONHAND 


Nh) Rt Rt Rt tt tt Pt Pb 
ArMWIOOAUMNNWW DODD WOO~IJ~)HAOAWW ty 


AMMDAMAMDAMDMDDAADAOAODADAAMAAADA AAD 


25 Sa " Pr EGews: 
38 GEL PROPER? Y=-Ulilieocr 
47 SAY "$" 
25. SAY '-----------------------" | 
20 SAY "Is this combat essential item ? :" 
54 GET PROPERTY->ESSENCE | 
35 SAY "Is this record correct ? = ' get Echmerepicus [a 
5 “TO: 37940 
4 TO 20, 70 
SI POE OE ee eC oe 
d. EDITBAT 


KARR KRKRKKR KR KKK RRR RRR RRR RR RR RRR RRR RK KKK RKRKKRKRKRKKKKRRKR RRR KKK RRR RR RRR RR KRRRR 


mies EF Cece ene (BATCH file scrreen format called by EDITBAT) AAA a 
KRAKKKKRKKK KERR KKKRKKRAKKK ARERR KARR ARKRAKKRRRRKAR RRR RKRARREREKKEKKKKK KK 
ag J SAY eee CUange or delete) Batch £11&" 
3, 4 DAW aU OG Vater sos 0.0, ome de 
3, 61 “GET “BATCH= Dane 
5, 23 SAY " “Stock number.” 
5, 40 GET BATCH->SN 
7, 23°05 ca. Voucher nunber =” 
7, -40 “GET Ss BATCH->REOHO 
9, 23 SAY " Customer Code :'' 
9, 40 GET BATCH->CI  . 
lL, 145 SAY" ee of action :"' 
1, 35 GET B8alGH=>TYPe 
1, 50 “SAY=" = Fosteq =" 
1, 60 GET BATCH->POSTED 
5, 12 Say “ Udsierey os 
3, 35 GET BATCH->QTY 
13, SO Say “Unitcost ==” 
ie oe oa ia Cee 
; SA 
14, 35 SAY "Date : '+Dtoc(BATCH->DATE) 
i7, 2 Sey ones mode) = Ins (Record) Next : PgDn" 
18, 7 SAY "(Delete) Character :Del Previous : PgUp'! 
Fee joey Gee ctrl+Y Record:ctrl+ U (Done/Save) :; 
n andon :Esc 
lL, 5° “ier 37 40 


DADA DOAADANDAYADAADAADADAAMAAAOAa@@ 
a ee ee en 


Smees TO 45, 70 
eae, 5 TO 20, 70 
@17, 35 TO 19, 35 
Rew eennnnne--------------- * Eof EDITBAT. fmt *----------------------- x 


e. EDITCUST 


KRREKKKKKKKKKRKKKKKKKEKKAKKKRRKKKRKRKERKRKRKKRKKKRKRERKEKKRRKKRKKRKRKKRKRKRKRKRKRKKKKRKRKRKRKKEKE 


AxXKAKA Editmast. fmt (MASTER file screen format called by EDITMAST ) ****xx 
eR AK KKK KAR KKK KR REKKK KKK RRR AKER KKK REKEKEKE RR RKKERRARERREKEKRRKRKAKR RAK 


@ 2, 10 SAY "Edit/Change Master file" 

@ 3, 47 SAY ea SPEAR aoe i 

@ 3, 61 SAY DTOC(DATE()) 

fe, 20 SAY "Stock Number :" 

@ 5, 36 GET MASTER->SN PICTURE '"9999-99-999-9999'! 

@ 7, 14 SAY "Customer code :" 

@ 7, 31 GET MASTER->CI 

@ 7, 43 SAY "Action Eyes ae 

@ 7, 58 GET NASTER->TYPE 

@ 9, 13 SAY "Request Number :" 

@ 9, 31 GET MASTER->VN PICTURE ''9999!!-9999-9999!! 

mmo, 31 GET MASTER=>REQNO PICTURE "9999! !-9999-9999'! 

mo, 5O SAY "Customer's 

fea, 12 SAY “Quantity :" 

Oei2, 24 GET MASTER->QTY 

feo, i2 SAY " Price ;'! 

@13, 24 GET MASTER->UNITCOST 

amis, 30 SAY "S Reusable ? ;" 

@ ie, 58 GET MASTER->MISC 

Oeid, 29 SAY ''Date :"' 

@14, 36 GET MNASTER->DATE 

@i17, 7 SAY "(Insert mode) : Ins (Record) Next : PgDn'" 

Geis, 7 SAY (Delete) Character :Del Previous : PgUp" 

@19, 13 SAY "Field:ctrl+Y Record: ctrituU (Done/Save) :; 

ctrl+End Abandon :Esc" 

@el, 5s To 3, 40 

cma. 5 T0 15, 70 

alco 5 TO 20, 70 

mm? 35 %TO 19, 35 

Rewer een een nen nn eee == * Eof EDITMAST. fmt *------------------------- * 
f. EDITASL 


KEEKKKEKKEKKRKEKKKRKRKRKKAKKKRKAKAKRKAKKEKKRKKRRKRKRKRKRKRKAREKRKRKRKEKRERKEKREKRKKRKKRKKRKKRRKRKKERE 


mee * Editasl. fmt (ASL screen format called by BUDA eS Ea ices 7 ee 
KAKKRKKKKKKRKRKKKKKRK RARER KARR RE AKRRK ER AAR AK RERAKKKK KERR AR KKKKERR 


2, 6 SAY "Edit Authorized Storage List file" 
eee? OAL: "TOGAY. cies sue v 

3, 60 SAY DTOC{DATE()) 

e200 SAY "Stock number ;" 

Beeoo GET ASL=>S5N 

eo 10 SAY “ReOrder Point :" 

ee ce Ghly ASL->ROP 

eso oar "Order shipping time :" 

8, 60 GET ASL~=>0ST 

8, 64 SAY "days" 


10, 11 SAY "Safety Level :'! 
TO) 26 GET ASL=>5L 

HO 36. SAY " Date ;'"! 

10, 60 GET ASL->DATE rw 

12, 10 SAY "Requisition Objective :" 

12, 34 GET ASL=->RO 

14, 23 SAY "Resource control number :'! 

14, 50 GET ASL->RCN 

17, 7 SAY "(Insert mode) : Ins (Record) Next : PgDn'! 
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MAVMDQDAMADPDADAPDAADDAAQ@@A@ 


Gove 7 Save tetie tes Character :Del Previous : PgUp!! 

@19, 13 SAY "Field: Y Record: U (Done/Save) : End Abandon :E 
Gs), . 5 Terms 220 

@ v4, 5 (6-05-79 

@ 16, 5S 82e 205470 

G17 73 Sew OF 1 ee 

Ree eee eee ene een nen * Eof EDITASL. fmt *------------------------- x 


¢. EDITPROP 


KKKEKKKKKKKKKKKKEKKKKKRKKRKKKKRKRKRKRKKRKRKKRKKRKRKRKKKRKKRKEKKKRKKKKRKKRKRKRKRKKRKRKRKKKRKKKEKKK 


a Editprop. fmt (PROPERTY File screen format called by EDITPROP)-~— aa 
AKARKAARRRAKKARKKKAK KARE RKRKRKKKKRKKKKKKKRKKKKKKKRKKRKRKKKKKKRKKKRKAKKKKRKKRKKKKK 


SAY Wada property fides 
a $ 


fh 
b= 
fh 


14, 49 GET PROPERTY->TVALUE 
ia, 59° Save. 
17. 7 SAY eoiees mode) : Ins (Record) Next : PgDn'" 
18, 7 SAY "(Delete) Character :Del Frevious :—2qUpa 
19, 13 SAY "Field: ctrl+Y Record: ctr1l+vu (Done/Save) : ; 
tritEnGweabpandenes-nsc. 

i: TO. 3720 


Aes TO 1s e70 
5 TO 20, 70 
, 35 TO 19, 35 
Rene ennn ene ----------------- * Eof EDITPROP.fmt *---------------------* 


@ 

@ 3, 46 SAY "Today... 

@ 3, 61 “Say DTOC{ TODAY) 

@ 5, 7 SAY "StoeckoNumpeer =" 

@ 5,. 23 GEIS PROVPERT we) 

@ 5, 45 SAY “Serial No ;" 

@ 5, 57 GET PROPERTY->SERIALNO 
@ 7, 7 SAY "Nomenclature :" 

@ 7, 23 GET PROPERTY->NM 

@ 9, 15 SAY “Unive 

@ 9, 23° GELS PRGEER ty Ue 

@ 9, 30 SAY "Essential item? ;"! 
@ 9, 48 GET PROPERTY->ESSENCE 
@ 9, S42 SSY “Giass <" 

@ 9, 62 GET PROPERTY->CLASS 
@d12, 4 SAY “Onkhand = :" 

@l2, 23 GET PROFERDY— ONwalE 
G@ii?, 25 Saye Price : 

@12, 49 GET PROPERTY->UNITCOST 
@ 12,598 Say o's" 

§ 14.530 Save” Total Value :'! 
@ 

@ 

@ 

@ 

c 

@ 

@ 

@ 

@ 

= 


h. EDITCUST 


RAK KAKKKRKAKAKAKKARKKKAAKKRRKKKKKAR KR RRR RAK KR RR RRR RRR RAK RKKRKRKKREKKKKKKK 


AAKKKK Editcust. fmt (CUSTOMER file screen called by EDITCUST ) XXX xxx 
KAKRKKAKKAKARKKRAKAKKKEKRER EER KERERERA RARER EKAR REE RREKRERRRRRKRRRAARKRRRKKAKK 


@ 2, 9 SAY "Edit or Delete CUSTOMER file 

@ 3. 46 SSay loday 2..." 

@ 3, 60 Say SEOpa 

@ 5 89 “say “eus tomers.” 

@ 5, 20 GET CUSTOMER->CI 

@ 5, 25 SAY Weode PRiority <¢ 

@ 5, 48 GET CUSTOMER->PRIORITY 

@ 7, 20 GET CUSTOMER=->CDESC 

@ 7, 51 “SaY “Description: 

@ 8, 20 GET CUSTOMER->ADDRESS FUNCTION "S30''; 
PICTURE "KXXXXXXXKXKKXXKKKXKXKKXKKKXKKKKXKKXKKKAKKKXKKKXKXKXKKRKXKKAXKKXKKKKKAKK"! 
@ 8, 51 SAY "Address" 

@ 9, 20 GET CUSTOMER->ZIPCODE 

@ 9, 51 SAY "Zipcode" 
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me 9 SAY “Fund allwed :" 

1, 23 GET CUSTOMER->EUND 

ie 2o 8 Gel). CUSTOMER=>EXPEND 

i 36 sey “Expend" 

13, 23 GET CUSTOMER->FUNDOH 

me) 36 Say “On hand" 

14, 33 SAY "Last edit date :'! 

GET CUSTOMER->DATE 

i?, 7 SAY Hea cee mode) : Ins (Record) Next : PgDn!' 
m6, 7 SAY “(Delete) Character :Del Previous : PgUp" 
mo) lauesAY “Fields:etrl+ Y Record:ctrl+ U (Done/Save) :; 
trl+End Abandon :Esc'! 

me 5 10 3, 40 

4, 2 Ome 5 0/0 


AMDADDOA AMADADADAADADAD 
te 
ray 
un 
i 


16, moeco 70 
Wersso 10°19, 35 
wee wee eee eee ee ee ee Xk EFof EDITCUST. fmt *---c ce ccc nn nnn e wwe cc cc cn nuk 
3. ANALYSIS 
a. EOQ 

AAKKAEAAKKKKAKKKKKAKKKKKKAKKAKKRKKKKKKKKKKKAKKKAKAKKKKRKKRKKAKKKAKKKAKKKAKKAKAKK 
AKKKKKKKKKKAKAKKAK Module name....: EQO. fmt KAA KAKKKKKKKAKAKKKKAKAAKAKAKRKKA 
KEKRKKKAKKKKKKKKKAKKKKAKKKKAKAKKKAKKKK se KARR AKRAKKR KER KARAKKAKKAKK AA KAR AK 
elear 


@ 2, 17 SAY "INFORMATION forANALY SI S'" 
@ 5, 12 SAY "You selected stock number :' 
@ 5, 40 SAY PROPERTY->SN 
@ oy Ld ey | c'tRtrim(PROPERTY- >NM)4", "+"Units"; 
+Rtrim(PROPERTY- PUEDE, Class:'"'+PROPERTY- >CLASS+"')" 

e, 18 Say "Purchasing ee : "+Ltrim(str(property->unitcost) );> 
+1 S/"+Ltrim(PROPERTY- >UNI . 
@10, 21 SAY "Annual ea weetrim( Ssemcndem) )+i.t. 
+Rtrim(propert Sa ce! seal ae 
@ 12, 14 SAY "Lead time(OST) in Month : "+Ltrim(str(mLeadt)); 


+" Month(s)" 

mea, 21 SAY “Ordering cost(C) : Sy Omcen 

@14, 40 GET Ordere pict "9999. gg" 

fale tl SAY “Holding cost unit per year %"" 
clo, 40 Get Frate pict "99.99" 

elo, 5 SAY '(Select one of these)" . 
@17, 14 SAY "Stockout cost(If Known) : S/W ev 
mie e40e GET Scost pict "9999.99" 

@ 17, 55 Say "Select?" get CSC pict "!" 

@18, 16 SAY "Service Level in ear : a0 

emo 40 /GET Servi pict, 99.999 

feces AY ‘'select?™ get CSL pict "!" 

@ 21, 5 SAY vietitler" | Reorder eer ath Gp 

mec “omesayY ‘Safety Level :"+ Ms 

@22, 15 SAY "Requisition objective :''+ Mro 

@ 22, 45 SAY "Lead Time : "+Most 

@24, 5 SAY space(50-Len(Ctitle))+(Ctitle) get check pict "!" 
eee ise ho 3, Gl DOUBLE 

@ 4, 1 T7019, 74 DOUBLE 

@ Zope sl O23, 714 DOUBLE 


ee ee * Eof E0Q.fmt *----------------------------% 
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Car 


Eiisi litle sioimelhiestEles 


Korea Army College, Logistics Management, Jinhae, Korea, April 30 1984 


Adnunistrative Refence 09-17-1, National Defense logistics Terminology, ROK 
DoD, Seoul. Korea, January 1985. 


Tersine, Richard J., Principles of Inventory and Materials Management, North- 
Holland, second edition, 52 Vanderbilt Ave New York, NY, 10017 1982 
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